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1.0 



ABSTRACT 



THE RKil/RK05 PERFORMANCE EXERCISER IS A HIGH LEVEL EXERCISER 
PROGRAM AIMED AT SIMULATING A RKU/RK05 SYSTEM ENVIRONMENT AND 
CHECKING FOR ERRORS THAT ARISE IN SUCH AN ENVIRONMENT 
(INTERACTION, POLLING, ETC). IT ALSO PROVIDES A MEANS OF 
EVALUATING A SYSTEM THROUGH ITS ERROR LOGGING AND DATA-TRANSFER 
LOGGING FACILITIES, 

AT THE BEGINNING OF THE PROGRAM THERE IS A SERIES OF TESTS 
SPECIFICALLY AIMED AT DETECTING AND ANALYZING FAILURES ASSOCIATED 
WITH BOUNDARY CONDITION TRANSFERS, 

THE LATTER PART (AND THE MORE SIGNIFICANT ONE) CONSISTS OF THE 
EXERCISER, 



2,0 REQUIREMENTS 



2,1 EQUIPMENT 



A, PDPll WITH CONSOLE TELTYPE 

B, 8K OF MEMORY - 12K FOR CHAIN MODE 

C, RKll OR RKVll CONTROLLER 

D, 1-8 RK05 OR RK05F DRIVES (DRIVE TYPES MAY BE MIXED) 
2,2 PRELIMINARY PROGRAMS 



SINCE THIS IS A HIGH-LEVEL EXERCISER PROGRAM THE CONTROLLER AND 
THE DRIVE SHOULD BE FREE OF BASIC FAULTS, IT IS POSSIABLE TO HANG 
THE PROGRAM IF THE HEAD POSITIONING LOGIC IS FAULTY ON DUAL 
DENSITY DRIVES. THUS THE FOLLOWING PROGRAMS SHOULD BE RUN BEFORE 
ATTEMPTING TO USE THIS PROGRAM, 



A, RKll BASIC LOGIC TESTS (I AND II) 

B, RK11/RK05 DYNAMIC TESTS 

C, RK05 UTILITY PACKAGE (IF NEEDED) 



2,3 EXECUTION TIME 



THIS VARIES FROM 30 TO 90 MINUTES FOR A PASS, IT SHOULD BE NOTED 
THAT THIS IS AN EXERCISER LEVEL PROGRAM AND SHOULD BE PREFERRABLY 
RUN FOR A LONG PERIOD OF TIME, 



3,0 STARTING ADDRESS 



200 - ALL SWITCHES DOWN, SEE SeC 6,0 FOR SWITCHES, 

210 - RESTART ADDRESS, THE RESTART ADDRESS PROVIDES THE USER WITH 
AN ABILITY TO GO STRAIGHT TO EXERCISER PART OF THE PROGRAM 
(SKIPPING TESTS 1-7), THERE IS A SWITCH OPTION (SW 4) WHICH 
ALLOWS THE USER TO INHIBIT THE REWRITE OF RANDOM PATTERNS ON ALL 
DRIVES, ON RESTART, SEE SEC- 6.9, 



4,9 PROGRAM CONTROL MODES AND OPERATOR ACTION 

PAPER TAPE LOADING 
RKDP DUMP MODE 
RKDP CHAIN MODE 
ACTU 

4.1 PAPER TAPE LOADING 

4.1.1 LOAD PROGRAM INTO MEMORY USING STANDARD PROCEDURE FOR ABSOLUTE 
TAPES. 

4.1.2 MAKE SURE THAT THE DRIVES TO BE CHECKED ARE LOADED WITH DISKS AND 
ARE IN 'RUN*. 'WRT ENABLE' THEM, CHECK THAT 'WRT PROT' LIGHT ON 
THESE DRIVES IS OFF. PUT DRIVES THAT ARE NOT TO BE TESTED ON 
'LOAD'. 

4.1.3 LOAD ADDRESS 200 

4.1.4 SET SWITCHES IF DESIRED (SEE SEC 6,0) AND PRESS START 

4.1.5 THE PROGRAM IDENTIFIES ITSELF 
MAINDEC-ll-DZRKH-F 
RK11/RK05 PERFORMANCE EXERCISER 
THEN IT PROCEEDS TO TEST THE DRIVES, 

4.2 RKDP DUMP MODE 

4.2.1 THE PROGRAM IS LOADED BY THE RKDP MONITOR, 

4.2.2 SET SA»200, SELECT ANY SWITCHES YOU WANT AND PRESS START, 

4.2.3 THE PROGRAM IDENTIFIES ITSELF AND PRINTS OUTf 

'TO TEST DRIVE 'N' HALT PROGRAM, REMOVE RKDP PACK AND REPLACE IT 
WITH A WORK PACK, CLEAR LOCATION 40, AND RESTART PROGRAM' 

IN RESPONSE TO THIS MESSAGE, PERFORM THE ACTIONS REQUESTED IF THE 
DRIVE ON WHICH THE RKDP PACK IS MOUNTED IS TO BE TESTED, 

4.3 RKDP CHAIN MODE 

THE PROGRAM IS CHAIN LOADED FROM RKDP PACK ON DRIVE 'N', AFTER 
IDENTIFYING ITSELF, THE FOLLOWING MESSAGE APPEARS* 

'DRIVE *N' NOT TESTED' 

DRIVE 'N' WILL NOT BE TESTED SINCE THF RKDP PACK IS ON THAT DRIVE, 



4,4 ACTll MODE 



The program is loaded by the actii monitor, after identifying 
itself, ascertains the number of drives present and proceeds to 
test each of them as before, 

5,0 drive selection 

put all the drives that are to be exercised and tested on 'run', 
write enable them, make sure that the 'wrt prot* is off. the 
program recognizes that these drives are on line and proceeds to 
test them, rk05f drives «ill have the letter f typed after the 

DRIVE NUMBER, 

IF A FATAL ERROR OCCURS ON A DRIVE WHILE THE PROGRAM IS RUNNING 
THE DRIVE IS AUTOMATICALLY DESELECTED CDSELCT') AND DROPPED FROM 
THE DRIVE SELECTION LIST, 



6,0 SWITCH OPTIONS 



IF THE PROGRAM IS BEING RUN ON A SWITCHLESS PROCESSOR (I.E. AN 
11/34) THE PROGRAM WILL DETERMINE THAT THE HARDWARE SWITCH 
REGISTER IS NOT PRESENT AND WILL USE A 'SOFTWARE' SWITCH REGISTER, 
THE 'SOFTWARE' SWITCH REGISTER IS LOCATED AT LOCATION 176 (8), 
THE SETTINGS OF THE 'SOFTWARE' SWITCHES ARE CONTROLLED THROUGH A 
KEYBOARD ROUTINE WHICH IS CALLED BY TYPING A 'CONTROL G', THE 
PROGRAM WILL RECOGNIZE THE 'CONTROL G' whenevtr tht program «nteri 
the scope routine or begins a new test, the 'SOFTWARE' SWITCH 
VALUES ARE ENTERED AS AN OCTAL NUMBER IN RESPONSE TO THE PROMPT 
FROM THE SWITCH ENTRY ROUTINEI 



'SWR » NNNNNN NEW «' 



EACH TIME SWITCH SETTING ARE ENTERED, THE ENTIRE SWITCH REGISTER 
IMAGE MUST BE ENTERED, LEADING ZEROS ARE NOT REQUIRED,, 'RUBOUT' 
AND 'CONTROL U' FUNCTIONS MAY BE USED TO CORRECT TYPING ERRORS 
DURING SWITCH ENTRY. ON PROCESSORS WITH HARDWARE SWITCH 
REGISTERS, THE 'SOFTWARE' SWITCH REGISTER MAY BE USED, IF THE 
PROGRAM FINDS ALL 16 SWITCHES IN THE 'UP' POSITION, ALL SWITCH 
REGISTER REFERENCES WILL BE TO THE 'SOFTWARE' REGISTER AND THE 
PROCEDURES DESCRIBED ABOVE MUST BE FOLLOWED. 



S.W<15>«1 HALT ON ERROR 

SW<13>»1 INHIBIT ERROR PRINTOUTS 

_SW<12>«1 TYPE OUT ThE ERROR HISTORY 

SW<11>«1 DUMP OUT ALL RKll REGISTERS 

SW<10>«1 RING BELL ON ERROR 

S^W<09>«1 LOOP ON SPECIFIC ERROR 

SW<08>«1 DUMP OUT TRANSFER DATA AND ERROR STATISTICS 

SW<06>«1 SELECT BUS ADDRESS LIMITS FOR DATA TRANSFERS 

SW<05>«1 HALT BEFORE DOING THE NEXT SET OF COMMANDS 

SW<04>«1 DO NOT REWRITE THE DISKS ON 210 RETSART 

SW<03>«1 TYPE OUT ELAPSED TIME AT ERROR 

■"SW<02>«1 DROP DRIVE AFTER MAXIMUM ERRORS 



SW<01>«1 TYPE SERIAL NUMBEP OF ERBOPING DRIVE 

SW<00>«1 TYPE ONLY ELAPSED TIME IF SW<08> AND SW<03> • 1 

6.1 swcisy 

THE PROGRAM HALTS ON ENCOUNTERING AN ERROR, AFTER TYPING OUT THE 
ERROR MESSAGE AND PERTINENT INFORMATION. PRESSING "CONTINUE" 
RESTORES NORMAL OPERATION OF THE PROGRAM, 

6.2 SW<13> 

THIS SWITCH INHIBITS ALL ERROR MESSAGES. NORMALLY USED WHEN 
LOOPING ON ERROR (SW 9), 

6,1 SW<12> 

IF THIS SWITCH IS SET WHEN AN ERROR OCCURS, INFORMATION ABOUT THE 
HISTORY OF THAT ERROR IS TYPED OUT. 

THE FUNCTION THAT WAS BEING PERFORMED ON THE RKll IS TYPED OUT, 
THE FUNCTION COULD BE EITHER A READ, WRITE, WRITE CHECK, BEAD 
CHECK. BESIDES THESE NORMAL FUNCTIONS, IT COULD BE A CONTROL 
RESET, DRIVE RESET OB POSITIONING OF THE HEADS (SEEKING). FOR THE 
FOUR FUNCTIONS THE INITIAL DISK ADDRESS, BUS ADDRESS AND WORD 
COUNT (?'S COMPLEMENT) ARE ALSO GIVEN, FOR DRIVE RESET AND 
POSITIONING THE DRIVE NUMBER OR WHICH THE OPERATION WAS BEING 
PERFORMED IS GIVEN, 

SIMILAR INFORMATION IS TYPED OUT ABOUT THE FUNCTION THAT WAS DONE 
JUST BEFORE THE ONE GIVING THE ERROR. 

6.4 SW<il> 

IF THIS SWITCH IS SET WHEN AN ERROR OCCURS, THE CONTENTS OF ALL 
RKll REGISTERS ARE TYPED OUT, 

6.5 SW<09> 

THIS SWITCH PROVIDES THE TIGHTEST POSSIBLE SCOPE LOOP. LOOPING IS 
DONE WHEN AN ERROR OCCURS, NOTE THAT THEPE ARE TWO CLASSES OF 
ERRORS AND HENCE TWO CLASSES OF ERROR LOOPS, REFER TO SEC 8,0 FOR 
THE DIFFERNECE IN THE ERROR LOOPS PROVIDED BY SW 9, 

6.6 SW<08> 



WHEN THIS SWITCH IS SET, THE ERROR AND TRANSFER DATA STATISTICS 
WHICH HAVE BEEN COLLECTED UNTIL THAT TIME, ARE TYPED OUT, 

THE TRANSFER DATA STATISTICS GIVE THE NUMBER OF WORDS WRITTEN AND 
READ ON EACH DRIVE THAT IS PRESENT, IT SHOULD BE NOTED THAT READ 
CHECK AND WRITE CHECK APE CONSIDERED TO BE ESSENTIALLY READ 
OPERATIONS, 



THE ERROR STATISTICS GIVE THE NUMBER OF ERRORS THAT HAVE OCCURRED 



tIF ANY) IN THE FOLLOWING CATEGORIES, ON THE DRIVES THAT ARE 
PRESENT; 



CHECK SUM ERROR 
WRITE CHECK ERROR 
DATA COMPARISON ERROR 
HARD ERROR 
SEEK ERROR 
SEEK INCOMPLETE 

ABORTS - WHEN AN ERROR OCCURS THE FUNCTION IS RETRIED TWICE, IF 
STILL THE ERROR PERSISTS THE FUNCTION IS ABORTED AND THE ABORT 
COUNT IS INCREMENTED FOR THAT DRIVE, 

6.7 SW<06> 

THIS SWITCH ENABLES THE USER TO SELECT THE LIMITS OF THE MEMORY 

BUS ADDRESSES BETWEEN WHICH THE DATA TRANSFERS WILL BE DONE, 

NORMALLY THE TRANSFERS ARE DONE BETWEEN THE LOWER LIMIT (BASEBA) 
AND THE HIGHER LIMIT (MAXBA), THESE TWO LIMITS ARE NORMALLY 

SELECTED BY THE PROGRAM AND USE THE MAXIMUM AVAILABLE MEMORY, IF 

THE USER WANTS TO DO DATA TRANSFERS BETWEEN SELECTED MEMORY 

ADDRESSES (EXi BETWEEN 12K AND 16K) THEN THIS SWITCH SHOULD BE 

SET AT THE STARTING OF THE PROGRAM, THE FOLLOWING MESSAGE 
APPEARS: 

TYPE OCTAL BUS ADDRESS FOR DATA XFER, BETWEEN XXXXXX AND YYYYYYY 

LO LIMIT? 
HI LIMIT? 

IN RESPONSE THE USER SHOULD TYPE IN ANY TWO BUS ADDRESSES (OCTAL) 
BETWEEN XXXXXX AND YYYYYY, IF THE USER TYPES IN ANYTHING OUT OF 
THE X AND Y RANGE THE QUESTION IS ASKED AGAIN. 

THIS SWITCH COULD BE QUITE USEFUL IN DETERMINING WHETHER THE 
PROBLEM IS WITHIN THE RKll OR OUTSIDE (IN MEMORY). NORMALLY, IF 
THE PROBLEM IS WITHIN THE RKll, ERRORS WILL KEEP ON OCCURING 
REGARDLESS OF WHERE IN THE MEMORY DATA TRANSFERS ARE TAKING PLACE. 
ON THE OTHER HAND IF THE PROBLEM IS MEMORY RELATED, THE ERRORS 
WILL TEND TO DISAPPEAR FOR DATA TRANSFERS TO CERTAIN MEMORY BLOCKS 
AND WOULD REAPPEAR FOR OTHER ONES. 

6.8 5W<05> — 

THIS SWITCH PROVIDES THE USER A CAPABILITY TO HALT THE PROGRAM AT 
A KNOWN POINT, THE HALT IS DONE AFTER THE CURRENT SET OF EIGHT 
COMMANDS IN THE QUEUE HAVE BEEN EXECUTED, THE "HALT" IS LOCATED 
AT THE BEGINNING OF THE'GEN8RQ' ROUTINE, JUST BEFORE A SET OF 8 
NEW COMMANDS IS GENERATED. AFTER THE PROGRAM HALTS, THE EXECUTION 
CAN BE RESUMED BY PRESSING CONTINUE, OR THE PROGRAM CAN BE STARTED 
BACK AT 200 OR RESTARTED AT 210. 



6.9 SW<04> 



THIS SWITCH PROVIDES THE USER WITH AN ABILITY TO SKIP THE TIME 
CONSUMING REWRITE OF ALL THE DISKS WHEN THE PROGRAM IS RESTARTED 
AT 210, THIS SWITCH CAN BE USED ONLY WHEN RESTARTING THE PROGRAM 
AT 210 WITH SW 4 SET, ON RESTARTING THE PROGRAM AT 210, THE 
INITIAL BOUNDARY CONDITION TESTS CTST1-TST7) ARE SKIPPED, IF 
SWITCH 4 IS SET, THE REWRITE OF ALL THE DISKS (WHICH WOULD HAVE 
BEEN NORMALLY DONE) IS ALSO SKIPPED, THE USER IS CAUTIONED TO USE 
THIS SWITCH CAREFULLY, THE DISKS SHOULD HAVE BEEN WRITTEN WITH 
RANDOM PATTERNS AT LEAST ONCE BEFORE RESTARTING THE PROGRAM AT 
210, IT SHOULD BE NOTED THAT TESTS 1-7 WRITE ON CYLINDERS 0,1, 
ON RESTART, THE STATISTICS COLLECTED SO FAR ARE SAVED. 

6,10 SW<03> 

THIS SWITCH ALLOWS THE TYPEOUT OF THE ELAPSED TIME AT WHICH ERROR 
OCCURRED, THE TIMING STARTS AT THE BEGINNING OF THE EXERCISER 
PROGRAM, THIS SWITCH SHOULD NOT BE SET IF KWUL LINE CLOCK IS NOT 
AVAILABLE ON THE SYSTEM, 

6,tl 5W<02> 

THIS SWITCH CAUSES DRIVES WHICH EXCEED A MAXIMUM NUMBER OF ERRORS 
TO BE OEASSIGNED BY THE PROGRAM, THE PROGRAM CONTINUES TESTING 
OTHER DRIVES WHICH HAVE NOT ACCUMULATED THE REQUIRED NUMBER OF 
ERRORS, 

6.12 SW<01> 

IF THIS SWITCH IS SET, THE PROGRAM ALLOWS A SERIAL NUMBER TO BE 
SPECIFIED FOR EACH DRIVE TESTED, THE SERIAL NUMBER IS TYPED WITH 
EACH ERROR MESSAGE FOR THAT PARTICULAR DRIVE, 

6.13 SW<00> 

IF SW<08> AND SW<03> ARE SET, SETTING THIS SWITCH TYPES OUT THE 
ELAPSED TIME FROM THE START OF THE PROGRAM, 



7,0 EXERCISER PROGRAM 



THE EXERCISER PROGRAM ATTEMPTS TO SIMULATE A DISK OPERATING SYSTEM 
ENVIRONMENT BY DOING RANDOM EVENTS (TUNCTIONS) USING RANDOMLY 
SELECTED PARAMETERS CDISK ADDRESS, BUS ADDRESS, WORD COUNT, ETC), 
AN ATTEMPT IS MADE TO DETECT INTER-ACTION PROBLEMS, OVERLAPPING 
SEEK PROBLEMS, ETC, FOR EXAMPLE, OVER 500 MILLION BITS ARE 
TRANSFERRED PER HOUR ON A TYPICAL RK11/RK05 SYSTEM (BASED ON 2 
DRIVES, PDPll/50, 28K SYSTEM), 

EIGHT JOBS OR COMMANDS ARE GENERATED AT A TIME (GEN8R0) AND PUT IN 
A QUEUE TO BE PROCESSED, THE ALGORITHM WORKS AS FOLLOWS, 
COMMANDS IN THE QUEUE ARE PREPOSITIONEO (HEADS) BY PREFORMING 
OVERLAPPING SEEKS, WHILE SOME OF THE DRIVES ARE BEING POSITIONED, 
THE LAST AVAILABLE (AND EXECUTABLE) COMMAND IS PERFORMED, THUS 
WHILE SOME DRIVES ARE BUSY POSITIONING THEIR HEADS, SOME DRIVE IS 
PERFORMING A FUNCTION (DATA TRANSFER, ETC ) , AS SOON AS THE 
CONTROLLER IS FREE , A CHECK IS MADE TO SEE IF THERE IS ANY DRIVE 
WHICH HAS ALREADY POSITIONED ITS HEAD, IF ONE IS FOUND THE 
COMMAND IS EXECUTED ON THAT DRIVE AND THE CONTROLLER AGAIN BECOMES 
BUSY, IF NO POSITIONED COMMAND IS FOUND, A CHECK IS MADE TO SEE 
IF THERE IS A COMMAND THAT IS TO BE POSITIONED. IF YES, IT IS 
POSITIONED AND THE LAST AVAILABLE COMMAND IS EXECUTED. IF IT IS 
FOUND THAT NO DRIVE NEEDS TO BE POSITIONED (THIS COULD HAPPEN IF 
THERE IS ONLY ONE COMMAND LEFT IN THE QUEUE OR THE REMAINING 
COMMANDS IN THE QUEUE ARE TO BE PERFORMED ON THE SAME DRIVE), THEN 
THE COMMANDS IS/ ARE EXECUTED, 

THE ABOVE ALGORITHM HELPS SIMULATE A REAL ENVIRONMENT, AT THE SAME 
TIME MAXIMISING THE PATE OF DATA TRANSFERS, THE EXERCISER PROGRAM 
GIVES AN ELABORATE ERROR DETECTION CAPABILITY, THE STATE OF THE 
PROGRAM IS CONTINUOSLY TRACKED BY SOFTWARE KEYS, FLAGS, ETC, 
THESE FLAGS AND KEYS HAVE BEEN EXPLAINED IN DETAIL AT THE BEGINING 
OF THE LISTINGS, WHERE THEY ARE DEFINED, ON DUAL DENSITY DRIVES, 
ONLY ONE LOGICAL DRIVE IS SELECTED DURING EACH QUEUE BUILD, THIS 
INSURES THAT OVERLAPPED SEEKS WILL NOT INTEFER WITH THE HEAD 
POSITIONING LOGIC. 

THE PARAMETERS USED FOR DOING THE COMMANDS ARE SELECTED RANDOMLY 
USING A RANDOM GENERATOR , THE FUNCTION TO BE PERFORMED IS 
SELECTED RANDOMLY FROM ONE OF THE FOURl WRITE, READ, WRITE CHECK, 
OR READ CHECK, THE DRIVE NUMBER IS SELECTED FROM THE AVAILABLE 
DRIVES, THE DISK ADDRESS IS SELECTED OVER THE ENTIRE RANGE AND 
THE WORD COUNT AND BUS ADDRESS ARE SELECTED RANDOMLY IN SUCH A WAY 
THAT A NON-EXISTENT MEMORY ERROR OP OVERRUN CONDITION DOES NOT 
OCCUR. 

RANDOM DATA BLOCKS ARE WRITTEN ON THE DISK, THE FIRST WORD OF 
EACH SECTOR BLOCK IS A NUMBER (2'S COMPLEMENT) INDICATING THE 
TOTAL NUMBER OF WORDS WRITTEN IN THAT SECTOR, THE REST OF THE 
WORDS IN THE BLOCK ARE GENERATED USING THE DISK ADDRESS (OF THAT 
SECTOR) AS THE RANDOM SEED NUMBER, 



8,0 



LOOPING CAPABILTTIESj 



SWITCH 9 GIVES LOOPING CAPABILITIES, ON EPROP, THERE ARE TWO 
CLASSES OF ERRORSt 



A, ERRORS OCCURING IN THE NON-EXERCISER PART OF THE PROGRAM 
(ERROR NUMBERS UNDER 100 IN THE ERROR ITEMS TRBLE) 

8. ERRORS OCCURING IN THE EXERCISER PART OF THE PROGRAM (ERROR 
NUMBERS STARTING FROM 100 AND UP IN THE ERROR ITEMS TABLE) 

C. NON-EXERCISER SCOPE LOOPS* IN THIS CASE, THE PROGRAM LOOPS ON 
A SPECIFIC ERROR GIVING A NARROW SCOpE LOOP. THIS SCOPE LOOP 
IS SIMILIAR TO The one PROVIDED IN THE RKU BASIC LOGIC TEST 
AND DYNAMIC TEST, WHICH THE USER MIGHT BE FAMILIAR WITH. 

D. EXERCISER SCOPE LOOPSJ WHEN AN ERROR OCCURS (AFTER TYPING OUT 
THE ERROR MESSAGE) CONTROL IS TRANSFERRED TO THE BEGINNING OF 
THE COMMAND-QUEUE. THE COMMANDS FROM THE FIRST COMMAND 
ONWARDS, ARE EXECUTED AGAIN TILL THE POINT OF ERROR. THIS 
LOOPING PROVIDES THE USER WITH A CAPABILITY TO RECREATE A SET 
OF EVENTS THAT LEO TO THE ERROR, 



9,0 TRANSFER DATA LOGGING 

IN THIS PROGRAM, WHENEVER A DATA TRANSFER TAKES PLACE IT IS LOGGED 
WHETHER IT IS READ, READ CHECK, WRITE OR WRITE CHECK, SEPERATE 
COUNTS ARE KEPT FOR DATA TRANSFERS TAKING PLACE ON EACH DRIVE IN 
THE SYSTEM. AT ANY GIVEN TIME THE USER CAN GET THESE TRANSFER 
STATISTICS BY SETTING SWITCH 8 TO 1 (SEE SEC, 6. 6), THIS IS 
HELPFUL FOR EVALUATING A SYSTEM. 



l«5,0 ERROR LOGGING 

THROUGHOUT THE EXERCISER PROGRAM, WHEN AN ERROR OCCURS IT IS 
LOGGED. THE FOLLOWING CLASSES OF ERRORS APE LOGGED FOR EACH DRIVE 
IN THE SYSTEM: 

CHECK SUM ERROR 
WRITE CHECK ERROR 
DATA COMPARISON ERROR 
HARD ERRORS 
SEEK ERROR 

SEEK INCOMPLETE ERROR 
ABORTS 

THE ERROR STATISTICS CAN BE OBTAINED BY PUTTING SWITCH 8 TO 1, 
THE ERROR STATISTICS CAN BE USED IN CONJUNCTION WITH DATA TRANSFER 
STATISTICS TO GIVE AN IDEA OF THE SYSTEM PEPFOPMANCE (NUMBER OF 
WORDS TRANSFERRED PEP ERPOR, CSE FREQUENCY, pi^COVERABLE VERSUS 
NON-RECOVEPABLE ERRORS ETC.). 



11,0 ERROR REPORTING AND RECOVERY 

WHENEVER AN ERi*OR OCCURS IT IS REPORTED ALONG WITH RELEVANT 
INFORMATION. THE RKU REGISTERS REPORTED IN THE ERROR MESSAGES 
REPRESENT THE CONTENTS AT THE TIME OF ERROR. EACH ERROR MESSAGE 
CONTAINS A 'PC* NUMBER, THIS IS THE PC LOCATION IN THE PROGRAM 
WHERE THE ERROR CALL IS LOCATED, THE USER IS ADVISED TO REFERENCE 
THIS LOCATION IN THE LISTINGS, IN CASE MORE INFORMATION ABOUT THE 
ERROR IS DESIRED. 

SOME (SYSTEM) ERRORS REFER TO SOFTWARE FLAGS AND KEYS WHICH ARE 
USED TO MONITOR THE ONGOING ACTIVITIES ON THE SYSTEM, THESE FLAGS 
ARE EXPLAINED AT THE BEGINING OF THE LISTINGS AND SOULD BE 
REFERRED TO, IF THE NEED ARISES. 

IF A FATAL ERROR CONDITION IS DETECTED (LIKE DRIVE UNSAFE, WRITE 
PROTECT SET, DRIVE READY CLEAR, ETC.) THE DRIVE IS REMOVED FROM 
THE DRIVE SELECTION TABLE AND DROPPED FROM FURTHER TESTING. A 
MESSAGE IS GIVEN INDICATING DROPPING OF THAT DRIVE. FOR FURTHER 
INFORMATION, REFER TO THE 'CHKDRV AND 'DSELCT* ROUTINES IN THE 
LISTINGS. 

RECOVERABLE ERRORS ARE RETRIED THREE TIMES. IF THE ERROR 
CONDITION FAILS TO CORRECT OR A IF A DIFFERENT ERROR OCCURS THE 
FUNCTION IS ABORTED, MESSAGES ARE PRINTED ONLY ONCE FOR EACH 
ERROR. AFTER EIGHT ABORTS ARE RECORDED ON A DRIVE THE DRIVE IS 
DROPPED, DUAL DENSITY DRIVES ARE ALWAYS DROPPED IN PAIRS. 



12,0 SUBROUTINES AND HANDLERS 

THERE ARE TWO WAYS IN WHICH MOST OF THE SUBROUTINES USED IN THIS 
PROGRAM ARE CALLEDl 

1, THROUGH THE NORMAL JSR CALL 

JSR REG#SUBR0UTINE 

2, THROGH THE 'TRAP* INSTRUCTION, THE TRAP INSTRUCTION WITH ITS 
LOWER BYTE ENCODED SERVES AS A CALL FOR SOME ROUTINES, WHEN THE 
'TRAP' IS EXECUTED A TRAP OCCURS TO THE TRAP VECTOR AND THE TRAP 
DECODER IS ENTERED, THE TRAP DECODER ($TRAP) WILL PICK UP THE 
LOWER BYTE OF THE 'TRAP' INSTRUCTION AND USE IT TO INDEX THROUGH 
THE TRAP TABLE (ITRAPAD) FOR THE STARTING ADDRESS OF THE DESIRED 
ROUTINE, THEN USING THE ADDRESS OBTAINED IT WILL GO TO THE 
DESIRED ROUTINE, 

3, $SCOPE - THE SCOPE HANDLER 

THE SCOPE HANDLER IS ENTERED THROUGH THE EXECUTION OF THE 'lOT' 
INSTRUCTION, IT KEEPS TRACK OF VARIOUS POINTERS, FLAGS AND 
DECIDES IF LOOPING IS TO BE DONE ON ERROR (SW 9), IT SHOULD BE 
NOTED THAT THIS HANDLER IS USED MOSTLY IN THE NON*EXERCISER PART 
OF THE PROGRAM, 

4, $ERROR - ERROR HANDLER ROUTINE 

THE ERROR HANDLER IS ENTERED THROUGH THE EXECUTION OF THE 'EMT' 
INSTRUCTION, THE LOWER BYTE OF THE EMT INSTRUCTION IS ENCODED TO 
GIVE AN IDENTIFIER TO THE ERROR CALL, THUS 'ERROR 1' IS 104001, 
ETC, THE ERROR ROUTINE DECIDES IF ANY ACTION IS TO BE TAKEN 
DEPENDING ON THE SWITCH SETTING (LIKE, HALT ON ERROR, INHIBIT 
ERROR TYPEOUT, ETC,). 

MOST OF THE SUBROUTINES RESIDE IN THE LATTER PART OF THE PROGRAM, 
THE USER CAN REFER TO THEM TROUGH THE CROSS REFERENCE TABLE AT THE 
END OF THE LISTINGS OR TABLE OF CONTENTS AT THE BEGINING, 
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SEQ 0014 



.TITLE MAINDEC-U-OERKH-F 
•C0PYRI6HT (C5 1973,1976 
♦DIGITAL EQUIPMENT CORP. 
•MAYNftRD» MASS. 01754 
« 

•PPOGRAH BY JIM KAPADIA 
• 

• THIS PROGRAM WAS ASSEMBLED USING THE PDP-U HAISDEC SySHAC 
•PACKAGE CMAINDEC-11-OZQAC-C23, SEPT 14, 1976, 



♦REVISED BY GEORGE GALLANT, TOM SAWYER 
•REVISED BY CHUCK HESS - AUGUST 1976 
SBTTL OPERATIONAL SWITCH SETTINGS 
• 

♦ SWITCH USE 



- MARCH 1976 



HALT ON ERROR 

LOOP ON TEST 

TYPE OUT ERROR HISTORY 

BELL ON ERROR 

LOOP ON ERROR 

TYPE OUT ERROR AND TRANSFER DATA STATISTICS 

SELECT BUS ADDRESS LIMITS FOR DISK DATA TRANSFERS 

HALT BEFORE DOING NEXT SET OF C0HMANDSCGEN8RQ) 

DO NOT REWRITE THE DISKS ON RESTART AT 210 

TYPE OUT ELAPSED TIME AT ERROR 

DROP DRIVE AFTER MAXH ERORS ON THIS DRIVE 

TYPE SERIAL NUMBER OF ERRORING DRIVE 

IF SW8 = 1, ONLY TYPE ELAPSED TIME 

DUMP OUT ALL RKU REGISTERS ON ERROR 



YOU ARE ADVISED TO READ THE DOCUMENT FOR THIS PROGRAM. 
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.SBTTL BASIC DEFINITIONS 

;^INITIAL ADDRESS OF THE STACK POINTER ♦♦♦ 1100 ••♦ 
STACKS 1100 

.EOUIV EMT, ERROR IJBASIC DEFINITION OF ERROR CALL 

.EQUIV lOT, SCOPE -BASIC DEFINITION OF SCOPE CALL 

J^MISCELLANEOUS DEFINITIONS 



45 


00001 1 


HT» 


11 


nCOOE FOR HORIZONTAL TAB 


46 


000012 


LF« 


12 


nCODE FOR LIME FEED 


47 


000015 


CR» 


15 


nCODE FOR CARRIAGE RETURN 


48 


000200 


CRLF" 


200 


IJCODE FOR CARRIAGE RETUPN-LINE FEED 


49 


177776 


PS» 


177776 


n PROCESSOR STATUS WORD 


50 




.EQUIV 


PS,PSW 




51 


1 77774 


STKLMTs 


177774 


nSTACK LIMIT REGISTER 


52 


177772 


PIBO« 


177772 


JlPROGRAH INTERRUPT REQUEST REGISTER 


53 


177570 


DSWRa 


177570 


r; HARDWARE SWITCH REGISTER 


54 


1 77570 


DDISPS 


177570 


M HARDWARE DISPLAY REGISTER 


55 
5b 




;^GENERAL PURPOSE 


REGISTER DEFINITIONS 


57 


000000 


R0I 


%0 


MGENERAL REGISTER 


58 


{■00001 


Rls 


%1 


MGEHERAL REGISTER 


59 


000002 


R2 = 


12 


mgeneral register 


60 


000003 


P3 = 


%3 


IIGENERAL register 


61 


000004 


R4s 


%4 


((GENERAL REGISTER 


62 


000005 


B5» 


%5 


((GENERAL REGISTER 


63 


1400006 


R6s 


%b 


((GENERAL REGISTER 


61 


000007 


R7 = 


*7 


((GENERAL REGISTER 


65 


000006 


SPe 


%6 


( (STACK POINTER 


66 


000007 


PC = 


%7 


( (PROGRAM COUNTER 


67 
6S 




!»PRIORITY LEVEL 


DEFINITIONS 


69 


000000 


PR0 = 





( (PRIORITY LEVEL 


70 


000040 


PR1 = 


40 


({PRIORITY LEVEL 1 


71 


000100 


PR2» 


100 


{(PRIORITY LEVEL 2 


72 


000140 


PP3 = 


140 


((PRIORITY LEVEL 3 


73 


000200 


PP4 = 


200 


({PRIORITY LEVEL 4 


74 


000240 


PR5= 


240 


((PRIORITY LEVEL 5 


75 


000300 


PR6» 


300 


{{PRIORITY LEVEL 6 


76 
77 


000340 


PR7= 


340 


{(PRIORITY LEVEL 7 


78 




•^•"SWITCH REGISTER" SWITCH DEFINITIONS 


79 


100000 


SWIS* 


100000 




80 


040000 


SH14» 


40000 




5!1 


020000 


SW13i: 


20000 




82 


010000 


Sliil2 = 


10000 




93 


004000 


SWllr 


4000 




R4 


002000 


SM10S 


2000 




85 


001000 


SW09B 


1000 




86 


000400 


St«0Bs 


400 




87 


000200 


SW07a 


200 




88 


000100 


SW063 


100 




89 


000040 


SW05 = 


40 




9K> 


000020 


SH04S 


20 
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SEQ aaift 



91 


000010 


8W03« 


10 




92 


000004 


SM02a 


4 




93 


000002 


S>I013 


2 




94 


000001 


SW00a 


1 




95 




.EOUIV 


SW09,SW9 




96 




.EQUIV 


SW08,SM8 




97 




.EQUIV 


SW07,SW7 




99 




.EOUIV 


SW06,SW6 




99 




.GQUtV 


SM05rSW5 




130 




.EQUIV 


SH04,SW4 




101 




.EOUIV 


SW03rSW3 




102 




.EOUIV 


SW02.SH2 




103 




.EQUIV 


SW01 ,SM1 




104 




.EQUIV 


SM00,SW0 




105 










106 




!»DATA 


BIT DEFINITIONS (BIT00 TO 3IT15) 


107 


100000 


BIT15» 


100000 




108 


040000 


BIT14* 


40000 




109 


020000 


BIT13* 


20000 




110 


010000 


BIT12* 


10000 




111 


004000 


BITl 1* 


4000 




112 


002000 


BIT10« 


2000 




113 


001000 


B1T09* 


1000 




114 


000400 


BIT08» 


400 




US 


000200 


B1T07« 


200 




116 


000100 


BIT06« 


100 




117 


000040 


BITBS* 


40 




118 


000020 


B1T04» 


20 




119 


000010 


BIT03» 


10 




120 


000004 


BIT02» 


4 




121 


000002 


BIT01« 


2 




122 


000001 


BITe0« 


1 




123 




.EQUIV 


BIT09,BII9 




124 




.EOUIV 


BIT08,BIT8 




125 




.EQUIV 


BIT07,BIT7 




1 26 




.EQUIV 


BIT06.BIT6 




127 




.EOUIV 


BIT05,BIT5 




128 




.EOUIV 


BIT04,BIT4 




129 




.EOUIV 


BIT03,BIT3 




130 




.EOUIV 


BIT02»BIT2 




1 31 




.EQUIV 


BIT01,BIT1 




132 




.EQUIV 


BIT00,BIT0 




1 33 
131 




!»BASIC 


"CPU" TRAP 


VECTOR ADDRESSES 


135 


000004 


EBF!VEC= 


4 


tjTIME OUT AND OTHER ERRORS 


136 


000010 


RESVEC« 


10 


nRESERVED And illegal INSTRUCTIONS 


137 


000014 


TBITVEC 




j)»T" BIT 


138 


000014 


TPTVEC* 


14 


II TRACE TRAP 


139 


000014 


BPTVECs 


14 


llBREAKPOINT TRAP CBPT) 


1 4*' 


000020 


lOTVEC* 


20 


n INPUT/OUTPUT TRAP (lOT) »»SCOPE»» 


141 


000024 


PhPVEC" 


24 


llPOWEP FAIL 


142 


000030 


EMTVEC" 


30 


llEMULATOR TRAP (EMT) ♦♦ERROR** 


143 


000034 


TBAPVEC»34 


II "TRAP" TRAP 


144 


000060 


TKVEC* 


60 


1 ITTY KEYBOARD VECTOR 


145 


000064 


IPVEC" 


64 


1 ITTY PRINTER VECTOR 


146 


000240 


PIPOVeC»240 


ItPROGRAM INTERRUPT REQUEST VECTOR 
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147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 



IKWUL CLOCK VECTOR 



000174 
000176 



000174 
000000 
000000 



000200 000137 003376 



000210 
000214 



000210 

105237 001253 
000137 003376 



000046 
000052 



000220 
000046 
022656 
0000S2 



000220 



.EQUIV 
•EQUIV 
.EQUIV 



.EQUIV 
.EQUIV 
.EQUIV 
.EQUIV 
.EOUIV 
.EQUIV 



.EQUIV 
.EQUIV 
.EOUIV 



BIT15,ERR 

BIT14,HE 

BIT13.SCP 



BIT12,DPL 
BIT10,DRU 
BIT09,SIN 
BIT07,DRY 
BIT06,RWS 
BIT05.HPS 



BIT12,SKE 
B1T01,CSE 
BIT00, WCE 



.SBTTL TRAP CATCHER 



I*ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A ".+2, HALT" 
I*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
I*LOCATION CONTAINS TO CATCH IMPROPERLY LOADED VECTORS 
.»174 

DISPREGt .WORD llSOFTWABE DISPLAY REGISTER 



SWREGl 
.SBTTL 



.HORD IISOFTWARE SWITCH REGISTER 

STARTING AODRESSCES) 

JMP »»START I I JUMP TO STARTING ADDRESS OF PROGRAM 



.»210 

INC8 FRSTRT 
JMP PISTART 



.SBTTL ACTll HOOKS 



IRESTART ADDRESS^ IF RESTART IS 
lOONE AT 210, THE BOUNDARY CONDITION 
ITESTS CTST1.7) ARE SKIPPED. IF SH 4 
lis SET THEN THE DISKS ARE NOT REWRITTEN 
l(WRDSK) WITH RANDOM PATTERNS. NORAMALLY 
lALL THE DISKS PRESENT ARE COMPLETELY 
IWRITTEN WITH RANDOM PATTERNS, AT THE 
IBESINING OF THE 
[EXERCISER PART OF THE PROGRAM, 



1 1 *•*«»«•••*•»«♦♦♦*«•*»«•♦***••«••**•••*•••*»♦**••♦♦**♦**•♦*♦*♦** 

IHOOKS REQUIRED BY ACTll 

ISAVE PC 



SSVPC*. 
.■46 
SENDAD 
.■52 
.WORD 
.•»SVPC 



IlDSET L0C.46 TO ADDRESS OF »ENDAD IN ,8eOP 



||2)SET LOC.52 TO ZERO 
1 1 RESTORE PC 



IKTII REGISTER DEFINITIONS 

, SBTTL fE"ORX MANftGEMEVT OEFXSflTIONS 
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233 f»KTU VECTOR ADDRESS 
2(94 

205 PI00250 MMVECs 250 
2<36 

2ei7 ;»KT11 STATUS REGISTER ADDRESSES 
238 

209 177572 SP3= 177572 

2\a 177574 SR1= 177574 

211 177575 SR2« 177576 

212 172516 SR3= 172516 
21 3 

214 ^KERNEL "I" PAGE DESCRIPTOR REGISTERS 
215 

216 172300 KIPDRi)= 172300 

217 172302 KIPDR1= 172302 

218 172304 KIPDR2= 172304 

219 172306 KIPDR3S 172306 

220 172310 KIPDR4S 172310 

221 172312 KIPDR5S 172312 

222 172314 KIPDR6= 172314 

223 172316 KIPDR7= 172316 
274 

225 ;»KEPMEL "D" PAGE DESCRIPTOR REGISTERS 

227 172320 KDPDR0= 172320 

228 172322 KDPDR1= 172322 

229 172324 KDPDR2= 172324 

230 172326 KDPDR3= 172326 

231 172330 KDPDR4= 172330 

232 172332 KDPDR5= 172332 

233 172334 KDPDR6= 172334 

234 172336 KDPDR7= 172336 
235 

236 ;»KERNEL °I" PAGE ADDRESS REGISTERS 
237 

238 172340 KIPAR0= 172340 

239 172342 KIPARl* 172342 

240 172344 KIPAR2a 172344 

241 172346 KIPAR3= 172346 

242 172350 KIPftR4=> 172350 

243 172352 KIPAR5= 172352 

244 172354 KIPAR6= 172354 

245 172356 KIPAR7i 172356 
24b 

247 ;»KERNFL "D" PAGE ADDRESS REGISTERS 
248 

249 172360 KDPAR0= 172360 

250 172362 KDPARl= 172362 

251 172364 KDPAR2S 172364 

252 172366 KDPAR3= 172366 

253 172370 KDPAR4= 172370 

254 172372 KDPAR5= 172372 

255 172374 KDPAR6= 172374 

256 172376 KDPAR7= 172376 
257 

258 
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COMMOM 


TAGS 






259 






.SBTTL 


COMMON 


TAGS 




260 














261 






; ) «*«•*»•»«•*»»«»*•««•*•**«*«*•»**•«••••««**«••«*»»••»•*«***«»••• 


262 






;«THIS 


TABLE CONTi^INS VaRTOUS COMMON STORAGE LOCATIONS 


263 






S»USEO 


IN THE PROGRAM. 




264 
265 




001 100 




,=1100 






266 


001 100 




scmtag: 






JJSTART OF COMMON TAGS 


267 


001 100 


000000 


SPASS; 


.WORD 





^CONTAINS PASS COUNT 


268 


001 102 


000 


ststnm: 


.BYTE 





» (CONTAINS THE TEST NUMBER 


269 


0011 03 


000 


SERFLG: 


.BYTE 





; (CONTAINS ERROR FLAG 


270 


001 104 


300000 


SICNT; 


.WORD 





! (CONTAINS SUBTEST ITERATION COUNT 


271 


001 106 


000000 


SLPADR: 


.WORD 





((CONTAINS SCOPE LOOP ADDRESS 


272 


001 1 10 


^00000 


SLPERR: 


.WORD 





((CONTAINS SCOPE RETURN FOR ERRORS 


273 


001 1 1 2 


000000 


SERTTL: 


.WORD 





[(CONTAINS TOTAL ERRORS DETECTED 


274 


001 114 


000 


sitfmb; 


.BYTE 





((CONTAINS ITEM CONTROL BYTE 


275 


001 1 15 


001 


SERMAX: 


.BYTE 


1 


((CONTAINS MAX. ERRORS PER TEST 


276 


001 116 


000000 


SERRPC; 


,»iORD 





; (CONTAINS PC OF LAST ERROR INSTRUCTION 


277 


001 120 


300000 


SGDAOR: 


.WORD 





((CONTAINS ADDRESS OF 'GOOD' DATA 


278 


001 122 


(500000 


SBDAnp; 


.WORD 





( (CONTAINS ADDRESS OF 'BAD' DATA 


279 


001 124 


000000 


SGDDAT: 


.WORD 





{(CONTAINS 'GOOD' DATA 


280 


001 126 


000000 


SBDDAT: 


.WORD 





{(CONTAINS 'BAD' DATA 


281 


001 1 30 


000000 




.WORD 





( (RESERVED--NOT TO BE USED 


282 


001 1 32 


000000 




.WORD 







28 3 


001 1 34 


000 


SAUTOBI 


.BYTE 





{{AUTOMATIC MODE INDICATOR 


294 


001135 


000 


SINTAG; 


.BYTE 





{(INTERRUPT MODE INDICATOR 


285 


001 1 36 


000000 




.WORD 







286 


001 1 40 


1 77570 


SWRj 


.WORD 


DSWR 


{(ADDRESS OF SWITCH REGISTER 


287 


001 142 


177570 


DISPIAY: .WORD 


DDT5P 


{{ADDRESS OF DISPLAY REGISTER 


288 


031 1 44 


177560 


STKS: 


177560 




{(TTY KBD STATUS 


799 


001 1 46 


177562 


STKb: 


177562 




{{TTY KBD BUFFER 


290 


001 150 


177564 


STPs: 


177564 




{(TTY PRINTER STATUS REG, ADDRESS 


291 


001 152 


177566 


stpbi 


177566 




{{TTY PRINTER BUFFER REG, ADDRESS 


702 


001 154 


000 


SNULL: 


.BYTE 





{ (CONTAINS NULL CHARACTER FOR FILLS 


293 


00! 155 


002 


SFILLS; 


.BYTE 


2 


{{CONTAINS t OF FILLER CHARACTERS REQUIRED 


294 


001 156 


012 


SF TLLC: 


.BYTE 


12 


{(INSERT FILL CHARS. AFTER A "LINE FEED" 


295 


001 157 


000 


STPFLG: 


.BYTE 





{{"TERMINAL AVAILABLE" FLAG C8IT<07>a0»YES3 


296 


001 1 60 


04)0000 


SREGAO: 


.WORD 





{{CONTAINS THE ADDRESS FROM 


297 












{{WHICH CSREG0) WAS OBTAINED 


299 


001 162 


000000 


SPEG0: 


.WORD 





{{CONTAINS tCSREGAD)+0) 


299 


001 164 


300000 


SREGl : 


.WORD 





((CONTAINS C(SREGAD)+2) 


3!90 


001 166 


000000 


$REG2: 


.WORD 





{(CONTAINS CCSREGAD)+4) 


301 


001 170 


000000 


$REG3: 


.WORD 





{{CONTAINS ((SREGAD)+6) 


302 


001 172 


000000 


SREG4: 


.WORD 





((CONTAINS CCSREGADH10} 


303 


001 174 


000000 


SREG5: 


.WORD 





{(CONTAINS ((*REGAD)+12) 


304 


001 176 


000000 


SREG6: 


.WORD 





((CONTAINS C($REGAD)il4] 


305 


001 200 


000000 


«REG7: 


.WORD 





{(CONTAINS (C«REGAD]+16) 


306 


001 202 


000000 


SREG10: 


.WORD 





{{CONTAINS ((SREGAO)4'20] 


307 


001204 


000000 


SFSCAPEta 




{(ESCAPE ON ERROR ADDRESS 


309 


001206 


177607 000377 


(BELL: 


.ASCIZ 


<207><377><377> 


{(CODE FOR BELL 


309 


001212 


077 


$QUES: 


.ASCII 


/?/ 


{{QUESTION MARK 


310 


001 21 3 


015 


SCRLF: 


.ASCII 


<15> 


{(CARRIAGE RETURN 


311 


001214 


000012 


SLF! 


.ASCIZ 


<12> 


((LINE FEED 


312 






I I •»•»•»«**•«••«•••••»•»••••«*••****•••»•*»**»•*«•««•*»»•*«*«**•• 


313 


001216 


177400 


RKOS! 


.WORD 


177400 




314 


001220 


177402 


HKER! 


.WORD 


177402 
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8E0 39?? 



315 


001232 


177404 


PKCSt 


.WORD 


316 


901324 


177406 


PKWCI 


.WORD 


317 


001226 


177410 


RKBAi 


.WORD 


318 


001230 


177412 


RKDAI 


.WORD 


319 


001232 


177416 


RKDBI 


.WORD 


320 


001234 


177546 


KMLSi 


.WORD 


321 










322 


001 236 


000372 


PCNTRi 


.WORD 


323 










324 


001240 


000220 


RKVEC! 


.WORD 


325 


001242 


000323 


BK8TAT« 


.WORD 


326 










327 


0^1244 


000240 


PPRIiVLI 


.WORD 


328 










329 










330 


001346 


000340 


KWPLVLl 


.WORD 


131 










332 










333 


001350 


177777 


SRORVI 


.WORD 


334 










335 










316 










337 










338 










339 










3413 


001252 


000 


FTITLEI 


.BYTE 


341 


9J01253 


000 


FRSTRTI 


• BYTE 



177404 
177406 
177410 
177412 
177416 

177546 ISTATUS REGISTER FOR KWllL 
250. 

220 I NORMAL RKU INTERRUPT VECTOR ADDRESS 

222 IPSH TO BE USED ON INTERRUPT 

240 IPROGPAM PRIORITY LEVEL'S, PRIORITY LEVEL 

lAT WHICH THE PROGRAM OPERATES CAN BE CHANGED 
JBY ALTERING THIS LOCATION, 

340 JPBIORITY LEVEL OF THE KWllL CLOCK SERVICE 

(ROUTINE. 

177777 I'SRDBV' CONTAINS THE DRIVE NO MHOOSE SERIAL 
I NO IS TO BE TYPED OUT WHEN AN ERROR OCCURS. 
HF SW 1 IS SET. WHEN CSH0RV)»-1 SEPIAL NO 
MS NOT TYPPCD OUT> BECAUSE THE ERROR WAS NOT 
IPOSITIVELY ATTRIBUTABLE TO A SPECIFIC DRIVE. 



a »FLAG FOR RESTART AT 210 
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342 JTHIS TABLE CONTAINS (IN ASCENDING ORDER) THE DRIVE NUMBERS THAT ARE 

343 {PRESENT. THUS IF 3 DRIVES e,l>2 ARE PRESENT! PDR MILL CONTAIN PDRl WILL 

344 ICONTAIN 1 AND PDR2 WILL CONTAIN 2. THE UPPER BIT OF EACH 'PDR' BYTE IS SEX IF IHE 

345 ICOBRESPONDING DRIVE IS AN 'F* DRIVE. 
346 

347 

348 001254 000010 PDRl .BLKB 10 
349 

iid 001364 000000 DRVPRSi .WORD ICONTAINS TOTAL NUMBER OF DRIVES PRESENT 

351 

352 ITHE FOLLOWING LOCATIONS CONTAIN SERIAL NUMBERS CORRESPONDING TO EACH 

953 IDRIVE. THE SERIAL NUMBERS ARE KEYED IN BY THE USER> WHEN THE PROGRAM 

354 >IS STARTED *<ITH SWITCH 1 SET TO 1. THIS FEATURE IS NORMALLY USED IN 

355 (PRODUCTION ENVIRONMENT. 
356 

357 001266 000010 8RN0I .BLKW 10 (SERIAL NO'S FOP DRIVES 0>7 

358 

359 

360 (THE FOLLOWING 8 KEYS ARE FOR THE 8 COMMANDS IN THE QUeUE> TO BE 

361 (EXECUTED ON DIFFERENT DRIVES. EACH KEY IS ASSOCIATED WITH AN EXECUTABLE 

362 (COMMAND ON THE RKll. VARIOUS BITE OF THE KEY DESCRIBE A COMMAND 

363 (AS INDICATED BELOW 
364 

365 (<0-2> DRIVE NUMBER ON WHICH THE COMMAND IS TO BE EXECUTED 

366 (<4> INDICATES THAT THE HEADS ARE BEING/OR HAVE BEEN 

367 ( POSITIONED ON THE DRIVE 

368 {<S> INDICATES A 'WRT CHK' SHOULD BE DONE FOLLOWING THE 'WRITE' 

369 l<6> INDICATES A WRITE CHECK FUNCTION HAS BEEN INITIATED 

370 (<7> INDICATES THAT A FUNCTION IS IN PROGRESS (IT IS NOT SET 

371 ( WHEN POSITIONING IS BEING DONE ON A DRIVE) 

372 (<8«10> INDICATES IHE POSITION OF THIS KEY IN THE 8>KEY TABLE 

373 ( (POSITIONS BEING 0, 1 r 2« 3 > 4r 5 , 6 , 7 ) 

374 (<tl> INDICATES THAT FUNCTION CORRESPONDING TO THIS KEY HAS 

375 } BGEN ABORTED 

376 (<12> INDICATES HIGH PRIORITY FOR THE COMMAND (NORMALLY 

377 > SET AFTER AN ERROR OCCURED ON THE COMMAND) 

378 (<14> INDICATES THAT THE COMMAND CORRESPONDING TO THIS KEY HAS BEEN 

379 { ABORTED BECAUSE THE DRIVE WAS DESELECTED (DSELECT) 

380 (<1S> INDICATES THAT THE COMMAND HAS BEEN COMPLETED 
3B1 ( (ALSO SET WHEN COMMAND IS ABORTED AFTER RETRIES) 
382 

383 

384 001306 SI00010 KEYI .BLKW 10 (KEY FOR THE COMMANDS IN QUEUE 

385 

386 

387 (THE PARAMETERS TO BE USED FOR EACH COMMAND IN THE QUEUE 

388 (ARE STORED IN A TABLE STARTING AT 'CHNO'. BITS <8-10> 

399 (OF TilE COMMSNn KEYS (KEYi KEY2, "-KEY8) ARE USED TO POIHT 

390 (TO TKS; RIGHT SET OF PARAMETERS. 

391 

392 

393 ( WORD 1 CONTAINS RKDA TO BE VST.O 

394 ( WOPO 2 CONTAINS RKCS (FUNCTION BITS ONLY) 
)95 [ WOPS 3 CONTAINS PKWC CWTRD COUNT 2*5 COMP) 
396 I 'f'ODP 4 COMTSJNS ?'KBI. 

397 
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SEQ 0022 



398 
399 
400 
401 
i02 
403 
404 
405 
40b 
407 
408 
409 
410 
411 
412 
413 
41 4 
415 
416 
417 
418 
419 
42bt 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430 
431 
432 
433 
434 
435 
436 
437 
438 
439 
440 
441 
442 
443 
444 
445 
446 
447 
448 
44*^ 
45H 
451 
152 
453 



001326 000040 



Cmnd: 



.BLKi* 



40 



^STORAGE TABLE 



001426 000010 



001436 000010 



001446 
001456 



001466 
001470 



001 472 
H01474 
001 476 
001500 



001502 
001504 
001506 
001510 
001512 
00! 51 4 
001516 



000010 
000000 



001460 000000 



001462 
001464 



000000 
000000 



000000 
000000 

000000 



000000 
000000 



000000 
000000 
000000 



;THESE ARE BUSY FLAGS FOP THE DRIVES. IF A DRIVE IS BUSY PERFORMING 
!ANY FUNCTION (INCLUDING POSITIONING) THEN BIT 7 OF THE FLAG FOR THAT. 
>DRIVE IS SET, BITS 0-3 CONTAIN THE OFFSET TO KEX » WHICH MADE THE DRIVE 
JBUSV. ex: DRIVE »3 WAS MADE TO DO A WRITE BY COMMAND 
!KEY5, HENCE 'BUSYS' WILL CONTAIN 210. NOTE THAT 10 IS THE 
;OFFSET FOR KEYS tTAKING KEY AS BASE), KEY l« OFFSET<0-3>/2 + 1 



BUSY) .3LKB 10 



IBUSY FLAGS FOR DRIVES 0-7 



>THESE FLAGS WHEN SET INDICATE THAT A DRIVE IS BEING 
.•POSITIONED OR HAS ALREADY BEEN POSITIONED. 



.BLKB 10 



(DRIVE a POSITIONED 



.•RETRY COUNTS FOR A PARTICULAR FUNCTION ON A DRIVE THE FUNCTION IS ABORTED 
JON A DRIVE WHEN THE RETRY COUNT REACHES 3. 



RETRY! 


.BLKB 


10 


IDRIVES 0-7 RERTY COUNTS 


WCFLGJ 


.WORD 





IIF BIT 15 IS SET WRITE CHK IS TO BE DONE 
JFOLLOWING THE WRITE. BITS 0-3 CONTAIN THE 
(OFFSET TO KEY# (FROM BASE'KEY) 


OSCNT! 


.WORD 





(THIS IS A COUNT FOB KEEPING TRACK OF THE TIME 

(TAKEN BY ALL THE 8 COMMANDS IN THE QUEUE. 

TIF THIS COUNTS DOWN TO AN ERROR IS REPORTED 


PRSFNC: 
PSTFNC: 


.WORD 
.WORD 






(COTAINS INFO ABOUT THE PRESENT COMMAND 
(BEING PERFORMED ON THE RKll 
(CONTAINS INFO ABOUT THE COMMAND PERFORMED 
(BEFORE THE 'PRScMNd' 


CICNT! 
CICNTl ! 


.WORD 
.WORD 







(THIS IS A COUNT-TIMER USED FOP KEEPING TRACK 
(OF THE TIME TAKEN BY ANY FUNCTION TO BE 
(COMPLETED. IF THE COUNT GOES TO AN ERROR IS 


timer: 

ERCODK: 

dRvptr; 
drvcnt; 


.WORD 
• WORD 
.WORD 
.WORD 











ODPv: 
qcvl: 
QSUR: 
OSEC: 

QFNC: 

qbussd: 
3WHCNT; 


.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 










(TEMPORARY REGISTERS USED BY 'GENeRQ* 
(ROUTINE TO STORE VARIOUS PARAMETERS 
(OF A COMMAND AS THEY ARE GENERATED. 



MAINOKC-1 1-DERKH-F 



MACYll 27(1006) 



OZPKHf , 


.PI 1 


22-SEP-7I 


454 






455 






456 






457 






453 






459 


001520 


000000 


460 


001522 


000000 


461 


001524 


000000 


462 


001526 


000000 


463 


001530 


000000 


464 


001532 


000000 


465 






46b 






467 






468 






459 






470 






471 


001534 


000 


472 


001535 


000 


473 






474 


001536 


000000 


475 


001540 


000000 


476 






477 






478 






479 






180 






481 






482 






483 


001542 


000010 


484 






485 


001552 


300000 


496 


001554 


000000 


487 


001556 


000000 


488 


001560 


300000 


439 






490 






491 






492 






493 






494 


001562 


000010 


495 






496 






497 






499 






499 


001602 


000010 


500 






501 






502 






503 






504 






505 


001622 


000010 


506 






507 






508 






509 







a4-0CT-76 
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(THIS TABLE CONTAINS VARIOUS HAPPING FACTORS TO BE USED 
(FOR GENERATING RANOOM PARAMETERS FROM RANDOM NUMBERS 



DPMAp: 

CYLMAp: 

SECMAP! 

FNMAPJ 

BAMAP: 

WCMAP: 



.iiORD 
.MORD 
.WORD 
.WORD 
.WORD 
.WORD 



(MAPPING FACTOR FOR GENERATING RANDOM DRIVE NUMBER 

(MAPPING FACTOR FOR CYLINDER 

(MAPPING FACTOR FOR SECTOR 

(MAPPING FACTOR FOR FUNCTION 

(MAPPING FACTOR FOR BUS ADDRESS 

(MAPPING FACTOR FOB WORD COUNT 



(THESK TWO FLAGS CORRESPOND TO THE 2 INTERRUPT HANDLERS CRKU) USED 
[IN THIS PROGRAM. WHEN THE INTERRUPT HANDLER IS ENTERED THE FLAG IS 
(CLEARED OR SET. 



, CLEARED ON ENTERING HANDLER 
SET ON ENTERING HANDLER 



INTFLG: .byte (FOR 'INTHNO ' 

INTIFL: .BYTE (FOR 'INTlSK'i 

SAVKEY: .WORD 
ECOUNTi .WORD 

(THIS TABLE CONTAINS COUNTS FOP THE NUMBER OF OF ERRORS OCCURING ON A 
(DRIVE (NOTF! ONLY THOSE ERRORS WHICH ARE POSITIVELY ATTRIBUTABLE TO A 
(SPECIFIC DRIVE). THE COUNT KEPT ONLY IF SWITCH 2 IS SET» WHEN THE COUNT 
(REACHES THE MAXIMUM ALLOWABLE (USUALLY 3) THE DRIVE IS DROPPED FROM 
(TESTING AND IS TAKEN OUT OF THE DRIVE SELECTION TABLE, 



erdrv! ,blkb 10 

kwhr: .word 

kwmim! .word 

kwsec! .word 

KWCOUHT: .WORD 



(COUNT FOR DRIVES 0-7 

(COUNTS HOURS (2'S COMPLEMENT) 

(COUNTS MINUTES (2'S COMPLEMENT) 

(COUNTS SECONDS (2*S COMPLEMENT) 

(COUNTS CPS FROM KWllL (2'S COMPLMNT) 



(THIS TABLE CONTAINS COUNTS FOR HARD ERRORS ON A PARTICULAR DRIVE, 

(EX HECN2 WILL CONTAIN THE TOTAL NUMBER OF HARD ERRORS THAT OCCURED ON 

(DRIVE 2 



hfcn: ,BLKW \<t 



(DRIVE 0-7 HARD ERROR COUNTS 



(THIS TABLE CONTAINS COUNTS FOR SEEK ERRORS 
(ON A PARTICULAR DRIVE. 



(DRIVE 0-7 SEEK ERROR COUNTS 



(THIS TABLE CONTAINS COUNTS FOR SIN ERRORS ON A 
(PARTICULAR DRIVE 



(DRIVE 0-7 SIN COUNTS 



(THIS TABLE CONTAINS COUNTS FOR WRITE CHECK ERRORS 
(THAT OCCURED ON A PARTICULAR DRIVE 
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SEQ 0324 



510 001632 000010 WCECN: ,8LKW 10 IWCE COUNT FOR DRIVES 0-7 

511 

512 

513 (THIS TABLE CONTAINS COUNTS FOR CHECK SUM ERROR THAT 

514 fOCCUBED ON A PARTICULAR DRIVE 
515 

516 001652 000010 CSECN! ,BLKW 10 JCSE COUNT FOR DRIVES 0-7 

517 

519 

519 STHIS TABLE CONTAINS COUNT OF NUMBER OF FUNCTIONS 

520 ITHAT WERE ABORTED ON A PARTICULAR DRIVE. A 

521 {FUNCTION IS ABORTED ONLY AFTER DOING RETRIES 
522 

523 001672 000010 ABORT: ,8LKW 10 (ABORT COUNT FOR DRIVES 0-7 

524 

525 (COUNTS FOR NUMBER OF DATA ERRORS THAT OCCURED ON INDIVIDUAL DRIVES, 

526 

527 001712 000010 DATER: ,8LKW 10 (DRIVES 0-7 



MATNOEC 


-1 1-DZRKH 


l-F 


HACYll 


27(10063 


04-OC' 


DZRKHF.PU 23 


l-SEP-76 


09:57 




COMMON 


528 


001732 


000000 






nwrtl: 


529 


901734 








nwrthi 


530 


001735 


000016 








531 












532 












533 


001772 


000000 






nrdl: 


534 


001774 


000000 






nrdh: 


535 


001776 


000016 








536 












537 


002032 


001326 






PCMNO: 


538 


002034 


001336 








539 


002036 


001346 








540 


002040 


001356 








541 


002042 


001366 








542 


002044 


001376 








543 


002046 


001406 








544 


002050 


001416 








545 












546 












547 


002052 


000000 






BASEBA1 


548 












549 


002054 


000000 






maxba: 


550 












551 


002056 


000000 






REPCNTi 


552 












553 












554 












555 












556 












557 












558 


002060 


000000 






XXDPMD! 


559 












560 












561 












562 










(ASCII 


563 












564 


002062 


005015 


045523 


000105 


MSGl t 


565 


002070 


005015 


041527 


000105 


MSG2i 


566 


002076 


005015 


051503 


000105 


MSG3t 


567 


002104 


005015 


040510 


042122 


MSG4t 


568 


002112 


042440 


047522 


000122 




569 


002120 


047440 


020116 


047504 


MSGS* 


570 


002126 


047111 


020107 


000 




571 


002133 


127 


044522 


042524 


MSG6I 


572 


002140 


000 








573 


002141 


122 


040S05 


000104 


MSC7S 


574 


002146 


051127 


020124 


044103 


MSGS: 


575 


002154 


000113 








576 


002156 


042122 


041440 


045510 


MSG9I 


577 


002164 


000 








578 


002165 


015 


040412 


047502 


MSG10I 


579 


002172 


052122 


042105 


005015 




580 


002200 


000 








581 


002201 


123 


042505 


000113 


MSGllI 


582 


002206 


005015 


041520 


00i?075 


HSGi2l 


593 


002214 


044! 20 


i!5153i 


041040 


KSGl 3S 
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.riOPD 

.WORD 
,BLK»' 



.WORD 
.WORD 
.BLKM 

.WORD 
.riORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



14. 



(LO WOROt OF THE 2 WORD COUNT-GIVING TOTAL 
(HI WDROI* OF WORDS WRITTEN ON DRIVE 
(FOR REST OF DRIVES 1-7 



(LO WORD! 2 WORD COUNT GIVING TOTAL 
(HI WORDt I OF WORDS READ ON DRIVE i 
(FOR DRIVES 1-7 



CMND (POINTERS TO PARAMETERS FOR COMMANDS IN QUEUE 

CMND+10 (POINTER TO SECOND COMMAND 

CMND+20 (POINTER TO THIRD COMMAND 

CMND+30 (POINTER TO FOURTH COMMAND 

CMND+40 (POINTER TO FIFTH COMMAND 

CMND+50 (POINTER TO SIXTH COMMAND 

CMND+60 (POINTER TO SEVENTH COMMAND 

CMMO+70 (POINTER TO EIGHTH COMMAND 



(CONTAINS THE LOWEST BUS ADDRESS STARTING WHICH DATA TRANSFERS 
(CAN BE DONE 

(CONTAINS THE HIGHEST BUS ADDRESS TO WHICH DATA TRANSFERS 
(CAN BE DONE. 

(CONTAINS THE REPETITION COUNT- THE NUMBER 
(OF TIMES Q REQUESTS WILL BE GENERATED, WHEN THIS 
(COUNT GOES TO 0, IT MEANS AN END OF PASS. HOWEVER 
(NOTE THAT THERE IS NO TRUE END OF PASS, IN THIS KIND 
(OF EXERCISER PROGRAM. THE EXERCISER RESUMES FROM 
(THE POINT IT LEFT OFF, AFTER TYPING OUT THE END IF 
(PASS MESSAGE. 

(LOW BYTE CONTAINS ADDRESS OF RK05 DRIVE 
(WHICH PROGRAM WAS LOADED FROM( HIGH BYTE 
(CONTAINS THE RK05 'XXDP' CODE. 



.ASCIE <1S><12>/SKE/ 
.ASCIZ<15><12>/WCE/ 
.ASCIZ<15><12> /CSe/ 
.ASCIZ <15><12>/HARD EROR/ 

.ASCIE/ ON DOING / 

.ASCIZ /WRITE/ 

.ASCIZ /READ/ 
.ASCIZ /WRT CHK/ 

.ASCIZ /RD CHK/ 

.ASCIZ <l5><t2>/ABORTE0/<15><l2> 



.ASCIZ 
.ASCIZ 

•ASCIZ 



/SEEK/ 

<15><i2>/PC»/ 

/PHYS BA»/ 
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SEQ ed26 



S84 


002222 


036501 


000 










5B5 


002225 


015 


04701 2 


0201 17 


MSG14; 


. ASCIZ 


<1S><12>/N0 DBVS PRSNT/ 


586 


002232 


051 !04 


051526 


050040 








587 


002240 


051522 


0521 16 


000 








588 


002245 


015 


042012 


053 1 22 


MSGl 5 ! 


,ASCIZ 


<15><12>/DRVE * DIDN I INTERUPT AFTER / 


589 


002252 


020105 


020043 


044504 








590 


002260 


047104 


052347 


044440 








591 


002266 


0521 1 6 


051 105 


050 1 25 








592 


002274 


020124 


043101 


042524 








593 


002302 


0201 22 


000 










594 


002305 


015 


045412 


054505 


MSGl 6 : 


.ASCIZ 


< 1 5>< 1 2> /KE Y*8 BLISY*7/ 


595 


002312 


034055 


020040 


041040 








596 


002320 


051525 


026531 


000067 








597 


002326 


05 1440 


020122 


047516 


HSGl 7 : 


, ASC I I 


/ SR NO/ 


598 


002334 


000072 






MSGl 8 : 


•ASCIZ 


/I/ 


599 


002336 


00501 5 


042040 


047522 


HSG19! 


.ASCIZ 


<15><12>/ DROPPED DRIVE * / 


bC!0 


002344 


050120 


042105 


042040 








6ai 


002352 


044522 


042526 


021 440 








602 


002360 


000040 












601 


002362 


005015 


051 104 


05311 1 


MSG20: 


.ASCIZ 


<15><12>/DRIVE/ 


6«4 


002370 


000105 












605 


002372 


020054 


000 




MSG24; 


.ASCIZ 


/ 


606 


002375 


106 


000 




MSG2S ! 


•ASCIZ 


/?/ 


6 07 


002377 


015 


o420i 2 


044522 


mSg26 : 


.ASCIZ 


< 1 5>«1 2>/0Rl VE iHRDS (iPITN WRoS READ CSE ^CE 


608 


002404 


042526 


020040 


05 1 1 27 








609 


002412 


051504 


053440 


044522 








610 


002420 


047124 


020040 


051 127 








611 


002426 


051504 


051040 


040505 








612 


002434 


020104 


020040 


041440 








613 


002442 


042523 


020040 


020040 








514 


002450 


041527 


02B105 


040504 








615 


002456 


042524 


051 122 


020040 








616 


002464 


020040 


044040 


020105 








617 


002472 


000040 












6 1 8 


002474 


0050 1 5 


051 104 


05 3 1 1 1 


KSG26 A S 


.ASCIZ 


* 1 5>< 1 2>/DRI VE SKE ABORT SIN/ 


619 


002502 


020105 


020040 


020040 








620 


032510 


045523 


020105 


040440 








621 


002516 


047502 


052122 


020040 








622 


002524 


020040 


044523 


0001 16 








623 


002532 


005015 


047125 


041101 


MSG27 ; 


.ASCIZ 


<15><12>/ljNABLE TO CLEAR ERROR AFTER THREE TRIES/ 


624 


002540 


0425 1 4 


052040 


0201 17 








625 


002546 


046103 


040505 


020122 








626 


002554 


051 105 


047522 


0201 22 








627 


002562 


043101 


042524 


0201 22 








628 


002570 


044124 


042522 


020105 








629 


002576 


051 124 


042511 


0001 23 








630 


002604 


0050 1 5 


0511 05 


047522 


MSG28: 


. ASC I Z 


* 1 5 >< 1 2'/ERR0R taONDITION CLEARED ON PETRI * / 








047503 


0421 16 








632 


002620 


052111 


04751 1 


0201 16 








633 


002626 


046103 


040505 


042522 








634 


002634 


020104 


0471 17 


051040 








635 


002642 


052105 


054522 


021440 








636 


002650 


000040 












637 


002652 


005015 


044524 


042515 


MSG29: 


.ASCIZ 


<15><12>/TIHE / 


638 


002650 


000040 












639 
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540 002662 

041 002663 

642 902664 
643 



040 
040 
000040 



PLNKS3: .ASCII / / 

BLNKS2: .ASCII / / 

BLNKSl: .ASCIZ / / 
.EVEN 
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644 
64S 
646 
647 
64B 
649 
6S0 
651 
652 
653 
654 
655 
656 
657 
658 
659 
660 
661 
662 
663 
664 
665 
666 
667 
668 
669 
670 
671 
672 
673 
674 
675 
676 
577 
678 
679 
69» 
681 
6R2 
663 
684 
685 
686 
687 
688 
689 
690 
691 
692 
693 
694 
695 
696 
697 
698 
699 



002666 
002670 
002672 
002674 



002676 
00270t) 
002702 
002704 



002706 
002710 
002712 
002714 



002716 
002720 
002722 
002724 



002726 
002710 
002732 



027530 
031626 
032320 
000000 



027546 
031674 
032334 
000000 



027621 
031626 
032320 

000000 



027644 
031626 
032320 
000000 



027667 
031626 
032320 



.SBTTL ERROR POINTER TABLE 

(•THIS TABLE CONTAINS THE INFORMATION TOR EACH ERROR THAT CAN OCCUR. 

J»THE INrORWATlON IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 

(•LOCATION $ITEMB, THIS NUMBER INDICATES WHICH ITEM In THE TABLE IS PERTINENT, 

(•NOTEll IF SITEMB IS THE ONLY PERTINENT DATA IS (tERRPCS. 

(♦N0TE2J EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLO'* 



EM 
DH 
OT 
DF 



I (POINTS TO THE ERROR MESSAGE 

((POINTS TO THE DATA HEADER 

((POINTS TO THE DATA 

((POINTS TO THE DATA FORMAT 



$errtb; 

(♦there are two classes of erborsl 

(•1, errors in exerciser part of the program - error numbers below 100 
(•2, errors in the non-exerciser part of the program - error numbers equal 
(•to and greater than 100, 

(•the document contains more information on these. 

(•the following errors occur in the exerciser part of the program, 



EMI 
DHl 
DTl 



EM2 
0H2 
DT2 




EM3 

DHl 
DIl 




EM4 

DHl 
DTI 



EMS 
DHl 
DTI 



(ERROR ON WRITE 

(PC RKCS RKER 

(lERRPC tREG0 SREGl 



RKDS 
SREG2 



RKDA 
IREG3 



(ATTEMPT TO INITIATE FUNCTION ON 'BUSY' DRIVE 
(PC DRIVE 
(SERRPC «RES0 



(CONTROL READY NOT SET 

(PC RKCS RKER RKDS RKDA 

I SERRPC (REG0 tREGl SREG2 «REG3 



(R/W/S READY NOT SET 

(PC RKCS RKER RKDS RKDA 

(SERRPC tREG0 SREGl tREG2 tREG3 



(CONTROL READY NOT SET AFTER FIRST INTERRUPT ON ISSUING SEEK 
(PC RKCS RKER RKDS RKDA 

((ERRPC •REG0 tREGl $REG2 SREG3 
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002734 000000 



781 
702 
703 
704 
705 
706 
707 
708 
709 
710 
711 
712 
713 
714 
715 
716 
717 
718 
719 
720 
721 
722 
723 
724 
725 
726 
727 
728 
729 
730 
731 
732 
733 
734 
735 
736 
737 
738 
739 
740 
741 
742 
743 
744 
745 
746 
747 
748 
749 
750 
751 
752 
753 
754 
755 



002736 
002740 
002742 
002744 



002746 
002750 
002752 
002754 



002756 
002760 
002762 
002764 



002766 
002770 
002772 
002774 



002776 
003000 
003002 
003004 



003006 
003010 
003012 
003014 



003016 
003020 
003022 
003024 



003026 

003«-j0 



027754 
031626 
032320 
000000 



030013 
031674 
032334 

000000 



030060 
031674 
032334 



030135 
031626 
032320 



030215 
031626 
032320 



030267 
031626 
032320 

000000 



030342 
031626 
032320 



EM6 
DHl 
DTI 




EH7 
DH2 
DT2 



10 

EM10 
DH2 
DT2 


11 

EMU 
DHl 
DTI 




(ITEM 12 



eMi2 

DHl 
OTl 



(ITEM 13 



030415 

031626 



EH13 
DHl 

DH 



14 

EMU 

DHl 

DTI 



EM 15 

DHS 



(WRONG BITS IN RKCS, EXPECT SEEK 
(PC RKCS RKER RKDS RKDA 

(tERRPC IREG0 IREGI IREG2 IREGS 



('BUSY' FLAG CLEAR ON INTERRUPTING DRIVE 
(PC DRIVE 
(SERRPC «REG0 



('POSITIONING' FLAG FOR INTERRUPTING DRIVE CLEAR 
(PC DRIVE 
(tERRPC tREG0 



('ERR'OR SET AFTER FIRST INTERRUPT ON ISSUING SEEK 
(PC RKCS PKER RKDS RKDA 

(tERRPC tREG0 tRGGl tREG2 tREG3 



tSCP SET AfTER FIRST INTERRUPT ON ISSUING SEEK 
(PC RKCS RKER RKDS RKDA 

(tERRPC tREG0 tREGl tREG2 tREG3 



(CONTROL READY NOT SET AFTER SEEK DONE INTERRUPT 
>PC RKCS RKER RKDS RKDA 

(tERRPC tREG0 tREGl tREG2 tREG3 



(INTERRUPTING DRIVE (SEEK DONE) WAS NOT 'BUSY' 
(PC RKCS RKER RKDS RKDA 

(tERRPC tREG0 tREGl tREG2 tREG3 



[R/W/S READY NOT SET FOR INTERHUPIINC DSIVE (SEEK OO'lt) 
IPC RKCS RKER FKOS Mtsk 
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756 
757 
759 
759 
76ia 
761 
762 
763 
764 
765 
766 
767 
768 
769 
770 
771 
772 
773 
774 
775 
77b 
777 
778 
779 
79t' 
781 
7R2 
783 
784 
785 
786 
787 
788 
789 
79k* 
791 
792 
793 
794 
795 
796 
797 
798 
799 
80») 
801 
832 
S03 
804 
80S 
80b 
807 
808 
809 
810 
81 1 



003032 
003034 



003036 
003040 
003042 
003044 



003046 
003050 
003052 
003054 



003056 
003060 
003062 
003064 



003066 
003070 



003072 
003074 



003076 
003100 



003192 
003104 



003106 
0031 10 
003112 
003114 



003116 
003170 
003122 
003134 



032320 

000000 



030501 
031626 
032320 
000000 



030512 
031626 
032320 

000000 



030540 
031626 
032320 
000000 



030604 
031711 



032342 

000000 



000000 
031711 



032342 
000000 



030616 
032006 
032320 

{100000 



030645 
031626 
032320 
000000 



DTI 




EM16 

DHl 

DTI 



rMi7 

DHl 
DTI 



EM20 

DHl 

DTI 



EM21 
DH21 



ISERRPC SREG0 SREGl SREG2 SRCG3 



DH21 
DT21 



;ITEM 23 



EH23 
DH23 
DTI 



EM24 

OHl 

DTl 



?'SIH' ERROR 
!PC RKCS 
ISERRPC IRCSe 



RKEP 
tRCGl 



J'ERR'OR ON DOING SEEK 
IPC RKCS RKER 

ISERRPC SREG0 SREGl 



RKDS 
SREG2 



RKDS 
tREG2 



RKDR 
tREG3 



RKDA 
SREG3 



!SCP OID NOT SET AFTER SEEK WAS DONE 
»PC RKCS RKEP RKDS RKDA 

(SERRPC SRGG0 SREGl $REG2 SREG3 



SSOFT ERROR 
JSERRPC RKCS 

ISERRPC $REG0 
»$REG4 SREG5 



ISERRPC RKCS 

tCXu SUR 

(SERRPC SREGa 

!$RCG4 SREG5 



RKER 
SEC 
SREGl 
SREG6 



RKER 
SEC 
SREGl 
SREGe 



RKDAI DRV« 



ID&TA (COMPARISON) ERROR 

!PC RKBA EXPCT RECVD 

ISERRPC SPEa0 IRCGl tREG2 



RKDA 
SRCGS 



ICONTROL, READY 
IPC RKCS 
ISERRPC SREG0 



:LEAR on INTERRUPT AFTER RK FUNCTION 
RKEP RKDS RKDA 
SREGl $REG2 SREG3 
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812 
813 
814 
815 
Sl6 
817 
818 
819 
820 
821 
822 
8?3 
824 
825 
826 
827 
828 
829 
810 
3U 
832 
333 
834 
835 
816 
837 
838 
819 
340 
841 
842 
843 
844 
845 
846 
847 
848 
349 
850 
851 
852 
853 
854 
855 
856 
357 
858 
859 
860 
861 
862 
863 
864 
865 
866 
867 



lITEM 25 



003126 
003130 
003132 
003134 



003136 
003140 
003142 
003144 



003146 
003150 
003152 
003154 



003156 
003160 
003162 
003164 



003166 
003170 
003172 
003174 



0^^3176 
003200 
003202 
003204 



003206 
003210 
003212 
003214 



003216 
003220 
003222 
003224 



000000 
032053 
032364 

000000 



030721 
031626 
032320 
000000 



030774 
032130 
032402 

000000 



031035 
032211 
032334 
000000 



031130 
031674 
032334 

000000 



031221 
032163 
032402 
000000 



031253 
032163 
032402 

000000 



031330 
031626 
032320 
000000 



0H25 
DT25 




EM26 

DHl 

DT! 



IITEH 27 



EM27 
DH27 
DT103 



EM30 
OH30 
DT2 



EH31 

DH2 

DT2 



EM32 

OH103 

DT103 



33 

EM33 
OH103 
DT103 


34 

EM34 

DHl 

DTl 



IPC RKCS 
ISERRPC $REG0 



ISTIJCK IN LOOP, 
IPC RKCS 
ISERRPC SREG0 



RKER 
SREGl 



RKDS 
(RCG2 



RKOA 
tREG3 



DRIVE 
SREG4 



8 Q-COMMANDS SHOULD BE DONE ht NOM 
RKER RKDS RKDA 
SREGl SREG2 SREG3 



I ATTEMPT TO DO URITE CHECK BEFORE WRITE 
IPC KEY FUNCTION CODE 

IPC $REG0 SREGl 



I ATTEMPT TO BEEXECUTE 
IPC KEY 
ISERRPC $REG0 



A COMMAND IN PROGRESS OR ALREADY FINISHED 



('FUNCTION IN PROGRESS' FLAG FOR INTERRUPTING DRIVE IS NOT SET 
IPC DRIVE 
ISERRPC SReG0 



lUNEXPECTEO DRIVE INTERRUPTED 
IPC EXPCT RECVD 

ISERRPC SREG0 SREGl 



I WRONG FUNCTION CODE IN RKCS AFTER 
IPC EXPCT RECVD 

ISERRPC SREG0 SREGl 



lORIVE READY CLEAR 
IPC RKCS RKER 

ISERRPC SREG0 SREGl 



RKDS 
SREG2 



RKDA 
SREG3 
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SCO ee32 



36B 
S69 
870 
871 
972 
873 
974 
975 
876 
877 
878 
879 
880 
881 
982 
883 
884 
885 
896 
987 
888 
889 
890 
891 
892 
893 
894 
895 
896 
897 
898 
899 
900 
901 
902 
903 
904 
905 
906 
907 
908 
909 
910 
911 
912 
913 
914 
915 
916 
917 
9|8 
919 
920 
921 
922 
923 



JITEM 35 



003226 
003230 
003232 
003234 



003236 
003240 
003242 
003244 



003246 
003250 
003252 
003254 



003256 
003260 
003262 
003264 



003266 
003270 
003272 
003274 



003276 
003300 
003302 
003304 



003306 
003310 
003312 
00331 4 



031347 
031626 
032320 
000000 



031365 
031626 
032320 

000000 



031401 
031626 
032320 
000000 



030616 
032006 
032320 

000000 



031411 
031626 
032320 



031451 
031626 
032320 
000000 



031465 
032163 
032402 
000000 



EM35 

DHl 

DTI 



EM36 

DHl 

DTl 



37 

EH37 

DHl 
OTl 




JORIVE POWER LOW 
IPC BKCS 
ISERRPC <REG0 



RKER 
SREGl 



(DRIVE UNSAFE 
IPC RKCS 
tSERRPC SREG0 



IMPS SET 
IPC BKCS 
ISERRPC tREG0 



RKER 
tREGl 



RKER 
SREGl 



RKDS 
IREG2 



RKDS 
$REG2 



RKDS 
$REG2 



RKDA 
$REG3 



RKDA 
$REG3 



RKDA 
tREG3 



I* 

;»THE FOLLOWING ERRORS OCCUR IN THE NON-EXERCISER PART OF THE PROGRAM, 



EM23 
OH23 
DTI 



101 



lOATA (COMPARISON) ERROR 

IPC HKBA EXPCT RECVD RKDA 

|$ERRPC SREG0 SREGl SREG2 SREG3 



EM101 IINTERRUPT DID NOT OCCUR AFTER KRITE 

DHl IPC RKCS 

DTl ISERRPC SREG0 




102 



RKER 
SREGl 



RKDS 
$REG2 



RKDA 
8REG3 



EM102 I'ERR'OR SET 
DHl IPC RKCS 

DTl ISERRPC SREG0 



RKER 
SREGl 



RKDS 
SREG2 



RKDA 
SREG3 



003316 031513 



EM103 
DH103 
DTie3 



104 

EM104 



IRKOA INCREMENTED WRONGLY 
IPC EXPCT RECVD 

ISERRPC SREG0 SREGl 



IRKBA INCREMENTED WRONGLY 



MAINOFC-ll-DZRKH-F MACYl I 27(1006) 04-O:T-76 13S29 PAGE 20 

DZRKHF.Pll 22-SEP-76 t'SsS? ERROR PDINTER TABLE 



924 
925 
925 
927 
928 
929 
9)0 
911 
932 
933 
934 
935 
936 
937 
938 
939 
940 
941 
942 
943 
944 
945 
946 
947 
949 
949 
950 
951 
952 
953 
954 



003320 
003322 
003324 



003326 
003330 
003332 
003334 



003336 
003340 
003342 
003344 



003346 
003350 
003352 
003354 



003356 
003360 
003362 
003364 



032163 
032402 
000000 



031541 
032225 
032402 

000000 



031571 
031626 
032320 

000000 



030616 
032163 
032402 

000000 



031610 
032252 
032320 

000000 



DH103 
OT103 



EM105 
DH10S 
DT103 



EM106 

DHl 

DTl 



EM23 

DH103 

DT103 



EM110 
DH110 

DTl 



IPC EXPCT 
ISERRPC SREG0 



RECVD 
SREGl 



IRKWC DID NOT OVERFLOW TO 
IPC RKDA RKWC 

ISERRPC SREG0 SREGl 



IMEX BITS INCORRECT 
IPC RKCS RKER 

ISERRPC SREG0 SREGl 



RKDS 
SREG2 



RKDA 
SREG3 



(DATA (COMPARISON) ERROR ON BEAD 
IPC EXPCT RECVD 

ISERRPC SREG0 SREGl 



I WRITE CHECK ERROR 
IPC RKCS RKER 

ISERRPC SREG0 SREGl 



RKBA 
SREa2 



RKDA 
SREG3 
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SEQ ee3* 



9S5 










956 










957 


06J3366 


0047 3 7 


022536 




959 


903372 


1052 37 


001 253 




959 










iS^ 










961 










962 










963 










964 


^^03376 


000005 






965 










966 










967 


003430 


012706 


001 100 




968 


003404 


005026 






969 


003406 


022706 


001140 




97ij 


003412 


001374 






971 


003414 


012706 


001 100 




972 










973 


003420 


012737 


027102 


000020 


974 


003426 


0) 2737 


000340 


000022 


975 


003434 


012737 


027246 


000034 


976 


003442 


012737 


000340 


000036 


977 


003450 


012737 


027346 


000024 


979 


00345b 


0127 3/ 


000340 


000026 


979 


003464 


012737 


003464 


001 106 


980 


003472 


012737 


003472 


001 1 10 


9S1 










992 










983 


003500 


01 3746 


000004 




984 


003504 


012737 


003540 


000004 


985 


003512 


012737 


177570 


001 1 40 


986 


003520 


012737 


177570 


001 1 42 


987 


00352b 


022777 


177777 


1 75404 


983 


003534 


00101 2 






989 










i9i> 


003536 


000403 






991 


003540 


012716 


003546 




992 


003544 


000002 






993 


003546 


012737 


000176 


001 1 40 


994 


003554 


012737 


000174 


001 142 


995 


003562 


01 2637 


000004 




996 










997 










998 










999 


003566 


005227 


177777 




1 3gid 


003572 


001 052 






1 


00357 4 


1 04401 


003637 














1«)03 


003600 


005737 


000042 




i<)a4 


003604 


001006 






1«)35 


003606 


023727 


001 140 


000176 


1 <1J)6 


003614 


001005 






1<)07 


003616 


104406 






lacjs 


003620 


000403 






! 


0^3622 


1 ! 2737 


00000! 


00! 1 34 


1410 


003630 









(IF POWER FAILED, ON RETURN OF POWER ENTER HERE. 



PFSTRTI JSR 
IKCB 



PC.WATIME 
FRSTHT 



!WA1I SOME TIME 

SINDICATE THAT THE STATISTICS HAVE 
JTO BE SAVED, ON RETRN FROM PWR FAIL. 



start: reset 

.sbttl initialize the common tags 
; (clear the common tags dcmiag) urea 



CLEAR THE BUS 



MOV 
CLR 
CMP 
BNE 
MOV 

: ; INITIALIZE 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 

;jSIZE FOP A 
; (EQUAL TO A 



((FIRST LOCATION TO BE CLEARED 
((CLEAR MEMORY LOCATION 



KLOOP BACK IF NO 

; (SETUP THE STACK POINTER 



#SCMTAG,R6 
(R6) + 

»SWR,R6 ((DONE? 
.•6 

iSTACK,SP 
A FEW VECTORS 

»SSC0PE,9II0TVE: :{I0T VECTOR FOR SCOPE ROUTINE 
»340,?»IOIVEC+2 ((LEVEL 7 

• STRAP, (i#TRAPVEC ((TRAP VECTOR FOR TRAP CALLS 
#34a,9#TRAPVEC+2(LEVEL 7 
ISPWRDN,»|PiiiRVEC ((POWER FAILURE VECTOR 
»340r9»PWRVEC+Z ((LEVEL 7 

l,,SLPADR ((INITIALIZE THE LOOP ADDRESS FOR SCOPE 

».,SLPERR [(SETUP THE ERROR LOOP ADDRESS 

HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
"-1", SETUP FOR A SOFTWARE SWITCH REGISTER. 



.SBTTL 
! (TYPE 



69S! 
70$: 



MOV 


9*ERRVEC,-CSP) 


( (SAVE ERROR VECTOR 


MOV 


«&4S,9*ERRVEC 


((SET UP ERROR VECTOR 


MOV 


tOSWR,SWR 


((SETUP FOB A HARDWARE SWICH REGISTER 


MOV 


»DDISP, DISPLAY 


((AND A HARDWARE DISPLAY REGISTER 


CMP 


»-l ,ilSWR 


((TRY TO REFERENCE HARDWARE SWR 


BNE 


&6S 


((BRANCH IF NO TIMEOUT TRAP OCCURRED 






{(AND THE HARDWARE SWR IS NOT « -1 


BR 


65S 


((BRANCH IF NO TIMEOUT 


MOV 


165$, (SP) 


((SET UP FOR TRAP RETURN 


RTI 






MOV 


*SWREG, SWR 


((POINT TO SOFTWARE SWR 


MOV 


IDISPREG, DISPLAY 


MOV 


CSPJ+.«#ERRVEC 


{(RESTORE ERROR VECTOR 


TYPE PROGRAM NAME 




THE NAME 


OF THE PROGRAM 


IF FIRST PASS 


INC 


1-1 


((FIRST TIME? 


BNE 


67S 


((BRANCH IF NO 


TYPE 


,68$ 


{(TYPE ASCIZ STRING 


GET VALUE FOR SOFTWARE 


SWITCH REGISTER 


TST 


»*42 


((ARE WE RUNNING UNDER XXDP/ACT? 


BNE 


69S 


{(BRANCH IF YES 


CMP 


SWR, *SWREG 


((SOFTWARE SWITCH REG SELECTED? 


BNE 


70S 


{(BRANCH IF NO 


GTSWP 




{(GET SOFT-SWR SETTINGS 


BR 


70S 




MOVB 


«!,SAUTOB 


((SET AUTO-MOOE INDICATOR 



HAINDEC 


-1 1-DZRKH 


i-F 


HACYll 


OZRKHF.Pll 22 


-SEP-76 


08:57 


10! 1 


003630 


000433 




1J12 








101 3 


03 3 720 






1<)1 4 


003720 


012737 


0261 1 4 


1<)!5 


003726 


01 3737 


001244 


IA\(> 


003734 


012737 


022460 


131 7 


0K3742 


013737 


001 246 


8 








1^19 








1020 








1^21 








1022 








1«)23 


003750 


005037 


002060 


1024 


003754 


122737 


000002 


1025 


003762 


001 160 




1026 


003764 


01 3737 


000040 


1^27 








1028 


003772 


122737 


000010 


1 ^29 


004000 


101002 




li530 


004902 


105037 


002060 


1031 


004006 


005737 


000042 


1^32 


00401 2 


001 424 




103? 


004014 


104401 


004022 


10?4 


004020 


00041 3 












1036 


004050 






1037 


004050 


005046 




1039 


004052 


1 13716 


002060 


1339 


004056 


104403 




1 ,14^ 


004060 


001 




1(^41 


00406! 


000 




1 042 


004062 


000520 




1(54 3 


004064 


005227 


177777 


1044 


004070 


001 1 15 




1045 


004072 


104401 


004100 


1046 


004076 


000411 




1047 








1^48 


004122 






1 /)49 


004122 


005046 




1,150 


004124 


113716 


002060 


1051 


e04130 


lfc4403 




10S2 


004132 


00! 




1«j53 


0041 33 


000 




1 J54 


004134 


104401 


004142 


1055 


004140 


00043! 




1056 








1057 


004224 






1058 


004224 


104401 


004232 


1059 


004230 


000435 




1060 








1061 


004324 






1062 








106 i 








1064 








1065 


004324 


104416 




1066 


004326 


005037 


001264 
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000030 
000032 
000100 
000102 



000041 

002060 
002060 



BR 

{(68S; .ASCIZ 
67S: 

MOV 
MOV 
MOV 
MOV 



67$ ((GET OVER THE ASCIZ 

<CRLF>»RK11/RK05 PERFORMANCE EXERCISER*<15><12>»MAINDEC-1 1-DZRKH-F»<CRLF 



ISERROR, (?tEMTVEC 
PPRLVL,?«EMTVEC+2 
»KWSRVE,S»KWLVEC 
KWPLVL,?tKWLVEC+2 



(EHT VECTOR FOR ERROR ROUTINE 
(LEVEL 5 

(KWllL CLOCK SERVICE 
(LEVEL 7 



{THE FOLLOWING CODE FINDS OUT THE PROGRAM CONTROL MODE: 
{PAPER TAPE (MANUAL), ACTll, RKDP CHAIN OR DUMP 



{ {72S: 
7is: 



( {74S: 
73$: 



{ (76$: 
75$; 



; (78$: 
77S: 



ST2: 



CLR 


XXOPMD 


(CLEAR 'XXDP* LOAD DEVICE ! 


CHP8 


*2,41 


(LOADED FROM AN RK05 ? 


BNE 


ST2 


{BR IF NOT 


MOV 


40,XXDPMD 


(GET DEVICE INDICATOR AND 1 






(LOADING RK05 


CMPB 


«10,XXDPMD 


(VALID DRIVE ADDRESS 7 


BHl 


2$ 


(BR IF YES 


CLRB 


XXOPHD 


(CHANGE TO DRIVE ZERO 


TST 


42 


{CHAIN MODE OR ACTll AUTO 1 


BEO 


3$ 


{BR IF NEITHER 


TYPE 


,72s 


{{TYPE ASCIZ STRING 


BR 


71$ 


( (GET OVER THE ASCIZ 


.ASCIZ 


<15><ia>/N0T 


TESTING DRIVE / 


CLH 


-(SP) 


(CLEAR WORD ON STACK 


H0V6 


XXDPHD, tSP) 


(GET DRIVE ADDRESS 


TYPOS 




(TYPE THE ADDRESS 


.BYTE 


1 


(ONLY 1 CHARACTER 


.BYTE 





(SUPRESS LEADING ZEROS 


BR 


ST2 


(GET NUMBER OF DRIVES 


INC 


»-l 


(FIRST TIME THROUGH HERE ? 


BNE 


ST2 


(BR IF NOT 


TYPE 


,74$ 


{(TYPE ASCIZ STRING 


BR 


73s 


: (GET OVER THE ASCIZ 


.ASCIZ 


<15><12>/TQ 


TEST DRIVE / 


CLR 


-CSP) 


{CLEAR WORD ON THE STACK 


MOVB 


XXDPhD, (SP) 


(GET DRIVE ADDRESS 


TYPOS 




{TYPE THE DRIVE ADDRESS 


.BYTE 


1 


(ONLY 1 CHARACTER 


.BYTE 





(SUPRESS LEADING ZEROS 


TYPE 


,76S 


((TYPE ASCIZ STRING 


BR 


75s 


{{GET OVEP. THE SSCIZ 


.ASCIZ 


/ HALT PROGRAM, REMOVE RKDP PACK AND REPLA 


TYPE 


,78$ 


{(TYPE ASCIZ STRING 


BP 


77$ 


( (GET OVER THE ASCIZ 


.ASCIZ 


/WITH A WORK 


PACK, CLEAR LOCATION 40, AND 



CON. RESET 

CLR DRVPRS 



(FIND WHICH DRIVE »'S ARE PRESENT 
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SES 0836 



1 067 


004332 


005000 






CLR 


R0 






004334 


005002 






CLR 


R2 




1069 


004336 


005037 


001254 




CLR 


POP 


;CLEAR DRIVES PRESENT TABLE 


1070 


004343 


005037 


001256 




CLR 


PDRt2 




1071 


004346 


005037 


001260 




CLR 


PDR+4 




1 072 


004352 


005037 


001 262 




CLR 


PDR+6 




1073 


004356 


012701 


001254 




MOV 


»PDR(R1 






004362 


012703 


001 306 




MOV 


IKCY,R3 




1075 


004366 


010277 


1 74636 


ill 


MOV 


R2f ORKOA 


) SELECT A DRIVE 




004372 


032777 


000200 


174616 


BIT 


t200.«RKDS 


;IS IT IN SYSTEM? 


1077 


004400 


001 415 






BEQ 


3* 


} NO 


1078 


004402 


010237 


001502 




MOV 


R2#Q0RV 


;LOAD DRIVE ADDRESS INTO ODRV 




004406 


104420 






DRV. RESET 


;RESET THE DRIVE 


1080 


004410 


005737 


002060 




TST 


XXOPMD 


} PROGRAM LOADED PROM AN RK05 ? 


1081 


004414 


001 403 






BEO 


3t 


IBR If NOT 


1 082 


004416 


1 20037 


003060 








;LOADED FROM THIS RK05 ? 


1 083 


004423 


001 404 










!BR IP YES 




004424 


1 10021 




2t 1 


unvn 


KB t I Ki J + 


ISTORE THE DRIVE NUMBER 


1 aas 


004426 


010233 








DO / D 1 % A 


; STORE ADDRESS IN KEY TABLE 


1^86 


004430 


005237 


001 264 




I NC 


Un VrKo 


}BUMP THE NUMBER OF DRIVES COUNTER 


1087 


004434 


062702 


020000 


3$ 1 






>NEXT DRIVE ADDRESS 


1088 


004440 


005200 






INC 




INEXT DRIVE NUMBER 


1 089 


004442 


022700 


0000 1 








iDONE ALL DRIVES??? 




004446 


001 347 






nur 
Snu 


19 


jLOOP TILL DOME 


1 ^9 1 


004450 


013703 


001 264 








;FIND WHICH DRIVES ARE TYPE F 


1 09 2 


004454 


001510 






BEO 


ST4 


|BP IF HOT DRIVES PRESENT 


1093 


004456 


012701 


001254 




MOV 


IPDRfRl 




1094 


004462 


005000 






CLR 


R0 






004464 


005002 












1 MOfc 


004466 


1 0440 1 


002362 




TYPE 


,MSG30 




1 «o7 








41 1 


MOVB 


CR1)>R2 


: GET DRIVE NUMBER 


1 aoa 


004474 


1 0200 






MOV 


R2f R0 






004476 


002472 






BLT 


9$ 




I 100 
1101 


004500 


1 0440 1 


003373 




liPE 


,MSG24 




1102 
















1 103 


004504 


010246 






MOV 


R2,-CSP) 


;TYPE THE DPIVE NUMBER 


1 1 04 


004506 


1 04403 






TYPOS 






1 105 


004510 


001 






.BYTE 


1 




1106 


004511 


000 






.BYTE 







1107 


004512 


000241 






CLC 




JMOVE DRIVE NUMBER TO BITS 15,14,13 


1 1 08 


00451 4 


006002 






ROP 


P2 


JBIT0 TO CARRY 


1109 


004516 


006002 






ROR 


R3 


;BIT0 TO 8IT15 


lua 


004520 


006002 






ROR 


r3 


>BIT0 TO 81T14 


1 1 1 1 


004522 


006002 






ROP 


r3 


>BIT0 TO BIT13 


1112 


004524 


042702 


017777 




BIC 


117777, b3 


(CLEAR ANY EXTRANEOUS BITS 


1U3 
1 1 1 4 


004530 


010237 


001503 




MOV 


R2,QDRV 




1 1 1 5 


004534 


104420 






ORV, RESET 


!RESET THE DRIVE VIA QDRV 


1 116 
1117 


004536 


032702 


020000 




BIT 


(20000, R2 


;EVEN DRIVE NUMBER??? 


1118 


004542 


001003 






BNE 


St 


>N0 - CLEAR BIT 


1119 
1120 


004544 


052702 


020000 




BIS 


*20000,r2 


(MAKE IT AN ODD DRIVE 


1131 


004550 


000402 






BP 


6« 




1123 
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123 
134 
125 
126 
12-? 


004553 


043703 


020000 




Sit 


BIC 


130000, R3 


IMAFE IT AN EVEN DRIVE 


004556 
004563 
004570 


010377 
033777 
001430 


174446 
000200 


174436 


611 


MOV 
BIT 
BEQ 


R3,*RK0A 

•300>«RKDS 

11 


(SELECT THE NEH DRIVE 

(MAKE SURE DRIVE IS IN SYSTEM 

(IF NOT, SKIP THIS TEST 


128 
129 
130 
131 
133 
133 
134 

m 

136 
137 
138 
139 
140 
141 
143 
143 
144 
145 
146 
147 
148 
149 


004573 
004600 
004603 
004610 


012777 
104417 

032777 
001010 


000011 
000100 


174433 
174406 




MOV 

CON. ROY 

BIT 

BNE 


•11,»RKCS 

(100,IIRKDS 
81 


(START A SEEK TO CYL 
(WAIT FOR CONTROLLER 
(IS IT IN MOTION??? 
(NO - J TYPE DRIVE 


004613 
004616 


153711 
104401 


000200 
002375 






BI6B 

Type 


1300, (Rl) 
,M8G35 


(YES - SET THE P TYPE BIT 


004622 
004630 


033777 
001774 


000100 


174366 


7tt 


BIT 
BEO 


I100,«RKDS 
71 


(WAIT FOR HEADS TO STOP 


004632 
004636 


105737 
001013 


001253 




811 


TSTB 
BNE 


FRSTRT 
9t 




004640 
004646 


032777 
001406 


000002 


174372 




BIT 
BEO 


*SW1,»SWR 
91 


(SERIAL NO. SW SET? 
(NO 


004650 
004654 
004656 
004660 


104401 
104413 
006300 
012660 


003336 
001266 






TYPE 
RDDEC 
ASL 
MOV 


,MSGt7 

m 

(5P}+,SRNOCR0) 


(TYPE "SR NO" 

(READ FSOM TTY INPUT 

(SAVE SERIAL NO FOR THE DRIVE 


150 
151 
153 
153 
154 


004664 
004666 
004670 
004672 


005201 
005303 
003300 
104401 


001213 




9$l 


INC 
DEC 
BGT 
TYPE 


Rl 
B3 
4t 

,«CRLF 
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SEQ 0038 



1155 
1156 
1157 
1 159 
1159 

Ilea 

1161 
1162 
1163 
1164 
1 165 
1166 
1167 
1 168 
1169 
117^ 
1171 
1172 
1173 
1174 
U75 
1176 
1177 
1178 
1 179 
1130 
1181 
1192 
1193 
1184 
1 1 85 
1186 
1187 
1188 
1189 
1 190 
1191 
1192 
1193 
1194 
1 195 
1 196 
1197 
1198 
1199 
1230 
1201 
1202 
1203 
1204 
1205 
1206 
1207 
1208 
1 209 
1210 



j'MAXBA' IS THE HIGHEST BUS ADDRESS CMEMORlf) TO WHICH DATA TRANSFERS CAN 
!BE DONE BY THE PROGRAM. 

;'MAXBA' IS FIGURED USING THE FOLLOWING ALGORITHMl 
;1, IF KTU IS NOT PRESENTf 

;A. and the program is run under XXDP, then THE TOP 1.5 K IS RESERVED 
J AND THE 'MAXBA* IS COMPUTED ($LSTAD»60a0) , 

;B, AND THE PROGRAM IS NOT RUNNING UNDER XXDP, THEN THE TOP 320 WORDS 

;ARE RESERVED FOR ' MOM LOADER , ETC . AND THE 'MAXBA' IS COMPUTED C « LSTAD-500 ) , 

;2, IF KTll IS PRESENT, 

;A, and MORE THAN 28K MEMORY IS PRESENT, THEN THE MAXIMUM BUS ADDRESS 
;IS 147776 (OCTAL). 

jB. AND LESS THAN 28K IS PRESENT, THEN THE TOP 2K IS RESERVED FOR RKOP 

^MONITOR AND 'MAXBA' IS COMPUTED. 

fFIGURE OUT THE AVAILABLE MEMORY AND 'MAXBA' 



004676 


004 7 37 


017374 


ST4 1 


JSR 


PCftSIZE 


tdO SIZE THE MEMORY 


004702 


01 2702 


002052 




MOV 


*BASEBA,R2 


;INITIALIZE POINTERS 


004706 


012703 


002054 




MOV 


(MAXBA, R3 




004712 


005737 


017432 




TST 


$KT1 1 


;KT11 AVAILABLE? 


004716 


1 00022 






BPL 


4$ 


;N0 


004720 


01 3700 


017700 




MOV 


SLSTBK, R0 


;GET THE LAST BANK OF MEMORY 


004724 


020027 


001540 




CMP 


R0 , i 1 540 


;28K Ok more? 


0047 30 


00201 2 






BGE 


3$ 


7 YES 


0047 32 


1 62700 


000040 




SUB 


#40f R0 


•BACK UP 2 K S CRKDP MONITOR, ETC.; 


0047 36 


012701 


177772 




MQV 


»-6,Rl 


JAND FORM THE MAXIMUM BUS ADDRESS 














'FOR DATA TRANSFER 


004742 


006300 




lit 


ASL 


R0 




004744 


005201 






INC 


Rl 




004746 


001375 






BNE 


IS 




004750 


162700 


000002 




SUB 


*2,R0 




004754 


000415 




2S: 


BR 


6$ 




004756 


012713 


147776 


3$: 


MOV 


#147776, (h3) 


;FOr 28k Or more, this is THE 'MAXBA' 


004762 


000413 






8R 


7S 




004764 


013700 


017676 


4$: 


MOV 


$LSTAD,S0 


JKTII NOT PRESENT, GET THE LAST 














JAVaILABLE ADDRESS 


004770 


005737 


000040 


5S! 


TST 


9«40 


S'XXOP* LOADED PROGRAM ? 


004774 


001003 






BNF 


8$ 


;YES 


004776 


162700 


00050(5 




SUB 


*500,R0 


SNO, SAVE THE LAST 320 WORDS 


005002 


000402 






BR 


6$ 




005004 


162700 


006000 


SSl 


SUB 


46000, R0 


;SAVE THE LAST 1.5K OF MEMORY (RKOP 














SMONITOR, ETC.) 


005010 


010013 




6Si 


MOV 


R0, (R3) 


JSAVE THE MAXIMUM BUS ADDRESS(MAXBA) TO 














JWHICH DATA TRANSFER CAN BE DONE SAFELY 


005012 


012712 


032412 


7St 


MOV 


iPGENO, (R2) 


;'BASEBA' 


005016 


032777 


000100 


174114 


BIT 


tSW06,<)SWR 




005024 


001510 






BEQ 


ST3 




005026 


104401 


005034 




TYPE 


,65S 


;)TYPE ASCIZ STRING 


005032 


000432 






BR 


bit 


; !GET OVER THE ftSCIZ 



: )65S8 

64$: 



.ASCIZ <lS><12>/TYPe OCTAL BUS ADDRESSES FOR DATA XFER, BETWEEN / 
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1211 


005120 


011246 








MOV 


(R2),-(SP) 


; 'BASEBA' 


1212 


005122 


104402 








TYPOC 






1213 


005124 


104401 


005132 






TYPE 


,67s 


SSTYPE ASCIZ STRING 


1214 


005130 


000402 








BR 


66$ 


;>GET OVER THE ASCIZ 


1215 










; !67S: 


.ASCIZ 


/ i / 




1216 


005136 








66s: 








1217 


005136 


011346 








MOV 


(R3).-(SP) 


; 'MAXBA' 


1218 


005140 


104402 








TYPOC 






1219 


005142 








9$l 








1220 


005142 


104401 


005150 






TlfPE 


,69S 


JITYPE ASCIZ STRING 


1221 


005146 


000407 








BR 


68S 


;jGET OVER THE ASCIZ 


1222 










; )69s: 


.ASCIZ 


<15><12>/L0 


LIMIT? / 


1223 


00S166 








68$; 








1224 


005166 


104412 








PDOCT 






1225 


005170 


012600 








MOV 


(SP)+,R0 




1 276 


005172 


020012 








C«P 


R0f (R2] 


jCORRECT LO LIMIT? 


1227 


005174 


103762 








BLO 


9t 




1228 


005176 


020013 








CMP 


Ra, (P3) 


.•CORRECT LO LIMIT? 


1229 


005200 


103360 








BHIS 


9$ 




1230 


005202 


010012 








MOV 


R0, (P2) 


; 'BASEBA' 


1231 


005204 








}0Si 








1232 


005204 


104401 


005212 






TYPE 


,719 


SJTYPE ASCIZ STRING 


1233 


005210 


000407 








BR 


70S 


;)GET OVER THE ASCIZ 


1234 










; ; 7 1 s 1 


.ASCIZ 


<15><12>/HI 


LIMIT? / 


1235 


005230 








70S: 








1 236 


005230 


104412 








RDOCT 






1237 


005232 


012600 








MOV 


(SP)+,R0 




1238 


005234 


02001 3 








CMP 


R0, (R3) 


;CORRECT HI LIMIT? 


1239 


005236 


101 362 








BHl 


10$ 




1240 


005240 


02001 2 








CMP 


R0, (R2) 


JCORRECT LO LIMIT? 


1 241 


005242 


101760 








BLOS 


10$ 




1242 


005244 


010013 








MOV 


R0, tR3) 


; 'MAXBA' 


1243 


















1 244 


005246 


023727 


002054 


037476 


ST3: 


CMP 


MAXBA, «37476 


;8K MEMORY - CLOBBER XXDPT 


1245 


005254 


002003 








BGE 


IS 




1246 


005256 


012737 


037476 


002054 




MOV 


#37476, MAXBA 


;but Save loader 


1247 


005264 


105737 


001253 




ISi 


TSTB 


FRSIRT 


SPROGRAm RESTARTED AT 210? 


1243 


005270 


001402 








BEQ 


BCTST 


JNO 


1249 


005272 


0001 37 


007716 






JMP 


EXRCSR 


;YES, SKIP TEST 1 TO 7 
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SEQ 0040 



1 250 








1 25 1 








1 252 








1 253 








1 254 


005276 


012737 


001 306 


1255 


005304 


013737 


001264 


1256 


005312 


017737 


174160 


1257 


005320 


062737 


000002 


1258 


005326 


005337 


001500 


1259 


005332 


100002 




1260 


005334 


000137 


007716 



;THIS, IS THE BEGINING OF THE CONSTRAINED TESTS AIMED AT CHECKING THE 
fDIFFERENT BOUNDARY CONDITIONS OF RK11/RK05 

JFIND OUT THE DRIVE NUMBER TO BE TESTED. 

001476 PCTST! HOV #KEy«DRVPTP INITIALIZE PTR TO DRV» 

001500 MOV DRVPRSrDRVCNT ;NUMBER OF DRIVES PRESENT 

001S02 NXTDRVl HOV »DRVPTR,ODRV ;SAVE DRIVE KBITS 15«13) 

001476 ADD #2,DBVPTR jINCRMENT PTR TO NXT DRVi 

DEC DBVCNT JDONE ALL DRIVES? 

BPL TSTl ;N0, GO TEST THIS DRIVE 

JMP EXRCSR ;ALL DONE, GO TO EXERCISER PART 
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1261 
1262 
1263 
1264 
1265 
1266 
1267 
1268 
1269 
1270 
1271 
1272 
1273 
1274 
1275 
1276 
1277 
1278 
1279 
1280 
1281 
1282 
1283 
1284 
1285 
1286 
1287 
1288 
1289 
1290 
1291 
1292 
1293 
1294 
1295 
1296 
1297 
1298 



005340 000004 



005342 
005346 
005350 



005362 
005 364 
005366 
005370 
005376 
005402 

005406 
005410 
005414 
005416 
005422 

005424 
005430 

005432 
005436 
005440 
005444 
005450 



013701 001502 
010102 

062702 000002 



mill 
000401 
006230 



104416 
104420 
104416 
012737 
012703 
004737 

104101 
004737 
104102 
004737 
104103 



004737 020136 
104105 



032701 
001005 
062701 
062702 
000747 



; ;•*«•»»»»•••*••••»•••••«»•««*••«•*•»•••••••»•••«•••»•••*•••«*••• 

J»TEST 1 PERFORM WRITE OF 401 WORDS (1 SECTOR ♦ 1 WORDS) 

;THIS TEST PERFORMS A WRITE OF 401 WORDS (1 SECTOR + IWORD) AND 
ICHECKS IF RKDA,RKBA,RKWC INCREMENTED CORRECTLY. WRITING IS DONE 
>0N CYLINDER 9, SURFACE 0, SECTORS 0,1 AND 10>11. IT SHOULD BE 
JNOTED THAT THIS IS A BOUNDARY CONDITION TRANSFER. THE VALIDITY 
tOF THE TRANSFER IS CHECKED IN THE NEXT TEST. 
;DATA PATTERN WRITTEN IS lUUl. 

; ; »«>*«••*•»••••»»»»•<•««•••«*•«•**••••»••«•••••»•*«•««•••««*•••• 

TSTl I SCOPE 



005354 012737 005362 001110 



032412 2$: 



000012 
000016 



MOV 


QDRV.Rl 


;GET RKDA 


MOV 


RlfR2 


;SAVe RKDA 


ADD 


»2,R2 


;EXPcTd RKDA AFTER WRITE IS DONE 


MOV 


*lt,SLPERR 


; RETURN ADDRESS FOR LUPING 


CON. RESET 




DRV. RESET 




CON. RESET 


;CLEAR MASK BITS IN POLLING LOGIC 


MOV 


#111111, DBUF 


:PATTERN TO BE WRITTEN 


MOV 


t401,R3 


JWORD COUNT FOR WRITE 


JSR 


PC.DOWRITE 


!G0 00 WRITE 


ERROR 


101 


J INTERRUPT DID NOT OCCUR AFTER WRITE 


JSR 


PCCHKCS 


;CHECK ERROR BIT IN RKCS 


ERROR 


102 


JERROR BIT IN RKCS SET ON DOING WRITE 


JSR 


PCCHKOA 


■.CHECK IF RKDA INCREMENTED RIGHT 


ERROR 


103 


JRKDA DID NOT INCREMENT RIGHT AFTER 






;A WRITE OF 401 WORDS. 


JSR 


PCCHKWC 


;CHECK IF RKWC OVERFLOWED TO 


ERROR 


105 


;RKWC DID NOT OVERFLOW TO AFTER 






;A WRITE OF 401 WORDS. 


BIT 


tl0,Rl 


;SGCTORS 10,11 WRITTEN? 


BNE 


TST2 




ADD 


«12,R1 


;RKDA TO BE USED NEXT (SEC 10) 


ADD 


»16,R2 


jEXPCTD RKDA AFTER WRITE IS DONE 


BR 


2t 


[GO WRITE SECS 10,11 
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SEQ 0042 



17<i9 










J ) «»*«•»••««*•»•»»»•»**•«•«••«•»*«»***••*«•»**•••*«**»•*•«**«*••« 


1300 










;»TEST 


2 


READ & CHECK 


THAT 401 WORD WRITE WAS DONE CORRECTLY 


1 331 












JTHIS TEST PERrORMS A 


READ OF THE 401 WORDS WRITTEN IN THE 


1 302 












JPREVIOUS TEST AHD CHECKS THAT THEY WERE CORRECTLY READ . MOREOVER 


1 303 












!IT CHECKS THAT ONtY 


ONE HON-ZERO WORD C401TH) WAS WRITTEN IN THE 


1304 












(SECOND 


SECTOR AND THE REST Or THE WORDS ARE ALL ZEROS. 


1 3a5 












1 306 


005452 


000004 






TST2 : 


SCOPE 






1 307 


















1 3a8 


005454 


01 3701 


001 502 






MOV 


0DRV,R1 


;GET DRIVE t 


1 309 


005460 


0127 37 


005466 


001 110 




MOV 


*1$>$LPERR 


(ADDRESS FOR LUPING ON EROR 


1310 


005466 


104416 






1 S t 


CON. RESET 




I 31 1 


005470 


1 04420 








DRV. RESET 




1312 


005472 


10441 6 








CON. RESET 




1313 


















1 314 
















(CLEAN UP THE DATA BUFFER 


1 315 


00547 4 


0047 37 


006360 






JSR 


PC/CLEANBUF 


(INTO WHICH READ WILL 


1316 
















(BE DONE 


ni 7 


005500 


012703 


001 000 






HOV 


*1000>R3 


(WORD COUNT 


1 318 


















1 31 9 


005504 


0047 37 


006350 






JSP 


PCfDOREAD 


•GO DO A READ OF 2 SECTORS 


1 320 
















(FROM DISK ADDRESS GIVEN IN Rl 


1 321 


005510 


1 04 101 








ERROR 


101 


(INTERRUPT DID NOT OCCUR AFTER 


1322 
















(READ OF 401 WORDS WAS DONE. 


1 323 


005512 


004737 


020020 






JSR 


PCrCHKCS 


(CHECK IF EROR BIT IN RKCS SET? 


1 324 


005516 


104102 








ERROR 


102 


(EROR BIT IN RKCS SET ON DOING A 


1 325 
















(READ OF 401 WORDS. 


1 326 


005520 


01 2704 


032412 






MOV 


ID8UE>R4 


(STARTING BUS ADDRESS^ INTO WHICH READ 


1 327 


005524 


01 0402 








MOV 


R4> R2 


(WAS DONE 


1 328 


005526 


004737 


0200S6 






JSR 


PCjCHKBA 


(CHECK IF RKBA INCREMENTED RIGHT 


1 329 


005532 


104104 








ERROR 


104 


(RKBA DID NOT INCREMENT RIGHT AFTER READ 


1 330 
















(OF 401 WORDS. 


1331 


005534 


01 2705 


177764 






MOV 


*-14»R5 


(ALLOW 12 ERRORS* AT THE MOST 


1332 


005540 


022 712 


111111 




2S! 






(CORRECT DATA READ? 


133 3 


005544 


001 410 








BEQ 


3* 


{ YES 


1334 


005546 


01 2737 


1 1 1 1 1 1 


001 164 




MOV 


*111111>«REG1 


(GET EXPCTD DATA WORD 


1 335 


005554 


004737 


005644 






JSR 


PCfERINFl 


(GET ERROR INFORMATION 


1 336 


005560 


104100 








ERROR 


100 


; DATA ERROR OCCURRED WHEN A 


1337 
















(READ OF 401 WORDS WAS DONE 


1 338 
















(THE DISK ADDRESS FROM WHERE 


1 339 
















•THE DATA WAS READ INCORRECTLY 


134^ 
















(IS GIVEN IN THE ERROR MESSAGE 


1341 


















1342 


005562 


005205 








INC 


R5 


(REPORT 12 ERORS AT MOST 


1343 


005564 


00] 421 








BEQ 


61 




1344 


005566 


005722 






3$: 


TST 


(R2) + 


(INCREMENT POINTER 


1345 


005570 


020227 


033414 






CmP 


R2, »DBUF+1002 


(CHECKED ALL 401 WORDS? 




005574 


00^ 361 








BNE 


2$ 




1 347 


















1348 


005576 


005712 






4$t 


TST 


(r2) 


(CHECK THAT REST OF 377 WORDS 


1 349 


005600 


001407 








BEO 


5S 


(ARE ALL 0'S 


1 i'iH 


005602 


005037 


001164 






CuR 


SREGl 


(GET EXPCTD DATA WORD (0) 


1 351 


005606 


004737 


005b44 






JSR 


PC.ERINFl 


(GET ERROR INFO 


1 352 


005612 


104100 








ERROR 


100 


(DATA ERROR. IN A PREVIOUS 


1353 
















(TEST A WRITE OF 40! WORDS 


1 354 
















(C! SECTOR + 1 WORD) WAS DONE 
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READ 


S. CHECK THAT 401 


WORD WRITE WAS DONE CORRECTLY 


1 355 
















(NOW THESE 2 SECTORS WERE 


1 356 
















(READ IN THE SECOND SECTOR 


1357 
















(THE FIRST WORD IS A NON-ZERO 


1 358 
















(WORD (WHICH WAS ttRITTEN BEFORE) 


1 359 
















(THE REST OF 377 WORD 


1 360 
















(SHOULD BE ALL ZEROS. IF 


1 361 
















(THE WRITE WAS DONE CORRECTLY 


1 362 
















((i READ IS DONE CORRECTLY) 


1 363 


















1 364 


005614 


005205 








INC 


P5 


(REPORT 12 ERORS AT MOST 


1 J65 


005616 


001404 








BEQ 


6S 




1366 


005620 


005722 




SSI 




TST 


(R2) + 


(ALL WORDS CHECKED? 


1 367 


005622 


020227 


034412 






CmP 


R2» tDBUF+2000 




1 368 


005626 


001 363 








BNE 


4t 


(IF NOT GO BAK 


1 ?69 


















1 370 


005630 


032701 


000010 


6$l 




BIT 


«10>R1 


(WERE SECTORS 10.11 READ 


1371 


005634 


001030 








BNE 


IST3 


(YES 


1372 


005636 


062701 


000012 






ADD 


*12,R1 


(FROM NEW RKDA. SEC 10 


1 J7 3 


005642 


00071 1 








BR 


1$ 


(GO BACK AND READ FROM SECS 10,11 


1 374 


















1375 








(ERINFl 








1 376 








(AT 


THE 


TIME 


OF entry: 




1 377 








(P2 


CONTAINS 


ERRORING BUS ADDRESS (WHERE DATA ERROR OCCURRED), 


1 378 








J(R2) CONTAINS BAD DATA THAT 


WAS READ BACK FROM DISK, 


1 379 








(Rl 


CONTAINS 


DISK ADDRESS WHERE READ BEGAN, 


1 380 


















1 381 


005644 


010237 


001162 


ERINFl 1 


MOV 


p2r SREG0 


(GET BUS ADDRESS OF DATA ERROR 


1382 


005650 


011237 


001166 






MOV 


CR2),SREG2 


(GET BAD DATA WORD (READ) 


1 383 


005654 


310146 








MOV 


R1,-(SP) 




1 384 


005656 


020227 


033410 






CMP 


R2,»DBUF*77b 


(FIGURE OUT THE DISK ADDRESS 


1 385 


005662 


003001 








BGT 


IS 


(WHERE DATA ERROR OCCURRED 


1 386 


005664 


00531b 








DEC 


(SP) 




1 387 


005666 


005216 




l$l 




VK 


(SP) 




1 338 


005670 


032716 


000010 






BIT 


*10, (SP) 




1 389 


005674 


001405 








BEQ 


2S 




1 390 


005676 


032716 


000004 






BIT 


*4r (SP) 




1 391 


005702 


001 402 








BEO 


2$ 




1 392 


005704 


062716 


000004 






ADO 


t4, CSP) 




1 393 


005710 


01 2637 


001 170 


2S( 




MOV 


tSP)+,SREG3 




1 394 


005714 


000207 








RTS 


PC 





'j^SKHr,?! 1 I3-SEP-7fe 8«l57 T3 PEPFORM URITE OF 12 SKCIORS + 1 WORD 



SEQ !5e*4 



t 395 
1396 
1397 
1396 
1399 

1 tee 

1401 
1402 
1403 
1404 
140S 
1406 
1407 
1408 
1409 
1410 
1411 
1412 
1411 
1 414 
1415 
1416 
14l7 
1418 
14l9 
1430 
1421 
1422 
1423 
1424 
1425 
1426 
1427 
1428 
1429 
1430 
1431 
1432 
1433 
I 434 
1435 
14)6 



005716 
005720 
005724 
005732 
005734 
005740 
009744 
005746 
005750 



005752 

005760 

005764 

005766 
005772 
005774 
006000 



006002 
006006 
006010 
006014 
006016 
006020 
006024 
006030 



000004 
013701 
012737 
010102 
062702 
012703 
104416 
104420 
104416 



012737 

004737 

104101 

004737 
104102 
004737 
104103 



004737 
104105 
032701 
001006 
010201 
062702 
012703 
000745 



t )»«»«*••««•••••••••••••*«•••••••••••••••*••»•••»••••••••«••*•*•• 

l»TS8T 3 PERfORM WHITE Of 12 SECTORS ♦ 1 WORD 

(THIS TEST CHECKS FOR kNOTHCR SOUNDARK CONDITION, IT 
IPERFORMS A WRITE OF 12 SECTORS + 1 WORD. PKDA,RKBA, 
IBKWC ARE CHECKED TO SEE IF THEY ARE INCREMENTED CORRECTLY, 
iVAtlDlTY OF THE DATA WRITTEN IS CHECKED IN THE NEXT 
(TEST. DATA IS WRITTEN ON SECTORS 0-U. SURFACE 
JCYLINOF.R C6001TH WORD ON SECTOR 0, SURFACE 1« CYL 0), 
>ALSO ON SECTORS 0-11. SURFACE 1 t6001TH WORD ON SECTOR 
10, CYL 1) 

; I ••»***»••••••«»••»•••••••*•••««••••••••*»»••••*#**•*«•*••*••••» 



TST3! 



001502 
005744 



000021 
006001 



044444 
006230 



020020 
020034 



020136 
000020 



000020 
005401 



SCOPE 
MOV 
MOV 
MOV 
ADD 
MOV 
CON, RESET 
DRV. RESET 
CON. RESET 



aoRVfRl 
•If ,(LPERR 
P1,R2 
•21, R2 
•6001, R3 



MOV 

JSP 

ERROR 

JSR 
ERROR 
JSP 
ERROR 



JSR 

ERROR 

BIT 

BNE 

MOV 

ADD 

MOV 

BR 



#44444, DBUr 

PCOOWRITE 

101 

PCCHKCS 
102 

PCCHKOA 
103 



PCCHKWC 
105 

•20, Rl 
1514 
R2,R1 
(20, P2 
15401, R3 
It 



(GET DRIVE » 

(LUP ON CROP TO '1«* 



(PATTERN TO BE WRITTEN 
JGO DO WRITE 

;ISTERUPT DID NOT OCCUR ON 
SCOMPLEIION OF WRITE 
ICHECK IF EROP BIT IN RKCS SET 
JEROB BIT IN RKCS SET ON DOING WRJTE 
(CHECK IF RKDA INCREMENTED RIGHT 
(RKDA DID HOT INCREMENT CORRECTLY 
(AFTER A WRITE OF 6001 (OCTAL) WORDS, 
((12 SECTORS + n 
(CHECK IF RKWC OVERFLOWED TO 
(RKWC DID NOT OVERFLOW TO 
(WRITTEN ON SURFACE IT 
J YES 

(SURFACE 1 

(WORD COUNT 

(SO WPITE SURFACE 1 



«ftINDEC-ll-DZRKH-F MACYll 
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1437 




1438 




1 439 




1440 




1441 




1442 




1443 




1444 




1445 


006032 


1446 


006034 


1447 


006040 


1448 


006044 


1449 


006052 


1410 


006054 


1451 


006056 


1452 




14S3 


006060 


1454 




1455 




1456 




1457 


006064 


1458 




1 459 


006070 


1460 


006074 


1461 




1462 


006076 


1463 


006102 


1464 


006104 


1465 


006110 


1466 


006112 


1467 


006116 


1468 


006120 


1469 


006124 


1470 


006130 


1471 


006132 


1472 


006140 


1473 


006144 


1474 




1475 




1476 




1477 




1478 




1479 




1480 


006146 


1481 


006150 


1482 


006152 


1483 


006154 


1484 


006160 


1485 


006162 


1 486 


006164 


1487 


006166 


1488 


006172 


148 9 


1506176 


1490 




1491 




1492 





004737 
104101 

004737 
104102 
012704 
010402 
004737 
104104 
012705 
022712 
001410 
012737 
004737 
104100 



005205 
001421 
005722 
020227 
001361 
005712 
001407 
005037 
004731 



001502 
000013 
006052 



000004 
013701 
062701 
012737 
104416 
104420 
104416 



004737 006360 



001000 
006350 

020020 

032412 

020056 

177764 
044444 

044444 
005644 



( (•»•••*»•*«••»•••»»»«••••»••••»••»•*»*••••••••»«••« t ••*«»•»••••• 

(•TEST 4 READ i CHECK THAI 5001 WORD WRITE WAS DONE CORRCTLY 

(THIS TEST CHECKS THAI THE 60B1-MORD WRITE THAT WAS DONE IN THE 
(PRFVIOUS TEST WAS CORRECT, ESPECIALLY THE LAST 401 WORDS. THE 
[FIRST WORD or THE SECTOR{ IN WHICH THE 5001TH WORD) IS WRITTEN 
(IS THE ONLY NON-ZERO WORD IN THAT SECTOR, THE REST 377 WORDS ARE 
(ALL ZEROS, IF THE WRITING WAS DONE CORRECTLY. 

I )«*»»»«»»t ••••»•»*•»»••••« »»«*»•»••*»•»»•»•»»•»•*•«»»•«••••»••*• 



T5T4! 



033414 



001164 

?!056*4 



3«! 

4«! 



SCOPE 

MOV OORV.Rl 
ADD •U-Rl 
MOV «1$,»LPEHR 
CON. RESET 
DRV. RESET 
CON, RESET 



JSR 



JSR 
ERROR 

JSR 

ERROR 

MOV 

MOV 

JSR 

ERROR 

MOV 

CMP 

BEQ 

MOV 

JSR 

ERROR 



PCCLEAMBUF 



PC, DORSAD 
101 

PCCHKCS 
ll»2 

*DBUF,R4 
R4,R2 
PCCHKBA 
104 

•-14, R5 
#44444, (R2} 
3t 

•44444, SRESl 

PCEBINFl 

133 



INC 


P5 


BEQ 


61 


TSI 


(R2)* 


CMP 


R2,»O3UF+I0i22 


BNE 


21 


TST 


(R2) 


BEQ 


51 


CLR 


iREGl 


JSP 


P:,«:si»?rs 


ERROR 





(GET DRIVE « 

(DISK ADDRESS FROM WHERE READ IS DONE 



(CLEAN UP THE BUFFER INTO WHICH 

(READ WILL BE DONE 

(SET UP RKDA 

(SECTOR 11, SURFAC"! 3 

(WORD COUNT 

(GO READ 1000 WORDS (2 SECS) 
(INTERRUPT DID NOT OCCUR AFTER 
(COHPLEIIQM OF BEAD 
(CHECK IF EROR BIT IN RKCS SET 
(EROR (RKCS) SET ON DOING READ 
(STARTING BA OF DATA BUFER 

(RKBA INCREMENTED CORRECTLY? 
(RKBA DID HOI INCREMENT CORRECTLY 

(DATA WORD OK? 

(NO, GET EXPCTD DATA WORD 

[GET, OTHER ERROR INFO 

[DATA ERROR. A WRITE CF 6001 

[WORDS (12 SECS i 1 WORD) WAS DONE 

(IN A PREVIOUS TEST, THE LAST TWO 

[SECTORS (LAST 401 WORDS) WERE READ 

(BACK, THIS ERROR INDICATES THAT 

(SEC 111 (LAST BUT ONE SECTOR) GAVE 

[BAD DATA WORDS 

[REPORT 12 ERORS AT MOST 

(INCREMENT POINTER TO BA 
(CHECKED 401 WORDS? 

rCHECK THAT THE REMAINING 377 
[WORDS OF THE LAST SECTOR (SEC #0) 
(WERE READ BACK AS 0'S 

[DATA ERROR. IF WRITE WAS DONE CORRECTt 
(IN THE PREVIOUS TEST, THE LAST SECTOS 
[OF THE DATA BLOCK (12 SECS ♦ S W0RD5 
sSHS'.'L: CCNTII'I Ovi,y s (FIRSfJ WORD 
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1 493 












1 494 












1495 












1496 












1497 


006200 


005205 






INC 


1 498 


006202 


001 404 






BEQ 


1499 


006204 


005722 




5S> 


TST 


150>3 


006206 


020227 


034412 




CMP 


1501 


006212 


001363 






BNE 


1502 












1S01 


006214 


032701 


000020 


6Si 


BIT 


1504 


006220 


001070 






BNE 


1505 


006222 


062701 


000020 




ADD 


1506 


006226 


000711 






BR 



;AS NON-ZEROi the rest 377 SHOULD BE 
0'S. THIS ERROR INDICATES THAT 

»THE SOME OF 377 WORDS 

I MERE NOT CORRECT 
R5 JREPORT 12 ERORS AT MOST 

6( 

(R2)+ ! INCREMENT POINTER 

R2.#DBUF+2000 ICHECKED ALL WORDS? 
4t ;N0 

420, Rl ;D0NE CHECKING FOR SURFACE 17 

TST5 rtts 

I20|R1 ;S0 SET UP FOR SURFACE 1 

1$ ;S0 BACK & READ SURFACE 1 
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1507 JDOWRITE 

1508 JThlS ROUTINE PERFORMS A WRITE DN A DISK. AT THE TIME OF ENTRY* Rl CONTAINS 

1509 JDISK ADDRESS CRKoR) WHERE WRITE IS TO Be D0NE» R3 CONTAINS THE WORD COUNT 

1510 ;tRKWC5, 'OBUF* CONTAINS THE DATA TO BE WRITTEN. NOTE IBA BIT IS SET. 
15J1 

1512 ;WRITE IS DONE IN INTERRUPT MODE. IF THE INTERRUPT DOES NOT OCCUR WITHIN 

1513 ;A CERTAIN TIME, RETURN IS MADE TO THE ERROR MESSAGE FOLLOWING THE 'JSR' 

1514 ;CALL. IF THE INTERRUPT OCCURS, RETURN ADDRESS IS ADJUSTED TO SKIP OVER 

1515 ;THE ERROR MESSAGE. 
1516 



1517 


006230 


012777 


004002 


172764 


DOWRITEl 


1 MOV 


»4002,aRKCS 


;WRITE, IBA 


1518 


006236 


PI10177 


172766 




DOXFER! 


MOV 


Rlf^RKDA 


; ADDRESS THE DRIVE 


15l9 


006242 


5110377 


172756 






MOV 


R3,(«RkWC 


;XFER THIS 4 OF WORDS 


152.5 


006246 


005477 


172752 






NEG 


9RKMC 




1521 


006252 


012777 


032412 


172746 




MOV 


IDBUF, URKBA 


;USE THIS BUS ADDRESS 


1522 


006260 


B12777 


006340 


172752 




MOV 


*3S,aRKVEC 


;SET UP INTERRUPT VECTOR 


1523 


006266 


005046 








CLR 


-CSP) 


;NEW PSW 


1524 


006270 


012746 


006276 






MOV 


I1S,-CSP) 


;SET NEW PC TO STACK »•*»»»«»•» 


1525 


006274 


000002 








RTI 






1S26 


006276 


052777 


000101 


172716 


1$: 


BIS 


«101.?RKC5 


iSET IDE, GO (WRITE, IBA/ READ) 


1527 


006304 


005037 


001466 






CLR 


CICNT 




1528 


006310 


012737 


177760 


001470 




HOV 


i-20,CICNTl 




1529 


006316 


005237 


001466 




2$: 


INC 


CICNT 


;WAIT FOR INTERRUPT 


153« 


006322 


001375 








BNE 


.-4 




15J1 


















15J2 


006324 


005237 


001470 






INC 


CICNTl 




1533 


006330 


001372 








BNE 


2$ 




153* 


















1535 


006332 


004737 


021740 






JSR 


PC,GT4PG 


!TIMED OUT, INTERRUPT DID NOT OCCUR 


1516 


006336 


000207 








RT5 


PC 


{RETURN TO THE EROR MEASGE 


1537 


















1518 


006340 


022626 






3s: 


CMP 


CSP)+, CSP)+ 


{RESTORE STACK POINTER 


1519 


006342 


062716 


000002 






ADD 


»2, (SP) 


; ADJUST RETURN ADDRESS TO SKIP OVER 


1540 


006346 


000207 








RTS 


PC 


;EROR MESAGE ON RETURN 
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5EQ 81248 



iS4l 
1S42 
1543 
1544 
1545 
1546 
1547 
1548 
1549 
1550 
1551 
1552 
1553 
1554 
1555 
1556 
1557 
1559 
1559 
1560 
1561 
1562 
1563 
1564 
1565 
1566 



006350 012777 000004 
006356 000727 



006360 
006364 
006370 



012702 177000 
012705 032412 
012725 022222 



006374 005202 



006376 001374 
006400 000207 



!THIS ROUTINE PERFORMS A BEAD ON THE DISK. AT THE TIME OF ENTRY Rl CONTAINS 
JTHE DISK ADDRESS FROM WHERE THE READ IS TO BE DONE. r3 CONTAINS THE WORD 
;COUNT CRKWC). READ WILL BE DONE INTO DATA BUFFER AT 'DBUF'. 

JREAD IS DONE IN INTERRUPT MODE, IF THE INTERRUPT DOES NOT OCCUR WITHIN 
!A CERTAIN TIME, RETURN IS HADE TO THE ERROR MESSAGE FOLLOWING THE 'JSR ' 
;CALL. IF THE INTERRUPT OCCURS AS EXPECTED. RETURN ADDRESS IS ADJUSTED 
[TO SKIP OVER THE ERROR MESSAGE, 



172644 DOREAD: MOV 
BR 



»4iiaRKCS 
DOXFER 



;read 



f CLEANBUF 

[CLEANS OUT THE DATA BUFFER CALL WORDS WRITTEN TO 177777) INTO WHICH THE 
[READ FROM THE DISK WILL BE DONE. DATA BUFFER STARTS AT 'DBUF'AND IS 
;1000 (OCTAL) WORDS LONG. 

CLEAMBUFIMOV «-1000»r2 



lit 



MOV 
MOV 
INC 



BNE 
RTS 



•DBUFiRS 
I22222> (RSj'f 
R2 



[SET COUNT 
UNITIALIZE BA 

[DONE ALL WORDS? 

[BUFFER STARTING AT (PHYSICAL) BUS 
[ADDRESS 177000 (177000-200776) 

[YES RETURN 
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1567 
1568 
1569 
1570 
1571 
1572 
1573 
1574 
1575 
1576 
1577 
1579 
1579 
1580 
1581 
1582 
1583 
1584 
1595 
1586 
1587 
1589 
1589 
1590 
1591 
1592 
1593 
1594 
1595 
1596 
1597 
1598 
1599 
1600 
1601 
1602 
1603 
1604 
1605 
1606 
1607 
1608 
1609 
1610 
1611 
1612 
1613 
1614 
1615 
1616 
1617 
1618 
1619 
1620 
1621 
1622 



006402 
006404 
006412 
006414 
006420 
006426 
006434 



006442 
006450 
006452 



006460 
006464 
006466 
006470 
006474 
006476 
006504 
006512 
006520 
006526 

006530 
006534 



000004 
023727 
103002 
000137 
012737 
012737 
012737 



012737 
104416 
104420 



006454 012700 



012701 
010021 
005200 
020027 
001373 
013777 
012777 
012777 
012777 
104417 

004737 
104102 



006764 
001600 
002000 
000001 



001001 

001502 
177000 
177000 
000003 



020020 



006536 004737 020112 



006542 104106 



[ I •*••»»•••••»•••••>•••«•»••«««*•••••••**••«••«••««»••••«••••••»• 

[•TEST 5 CHECK DATA TRANSFER AROUND 32K BOUNDARY 

[•THIS TEST PERF0RME8 A WRITE OF 2 SECTORS ON THE DISK FROM MEHORt 
[•LOCATIONS AROUND THE 32K BOUNDARY. SECTORS 9,1, CYL B, SURFACE 
[•0 ARE WRITTEN. PHYSICAL BUS ADDRESSES FOR THE DATA BUFFER: 
[• 177000 TO 200776 I.E. (32K-256) TO (32K+255) 

[•CHECKING IS DONE TO SEE IF MEX BITS, RKBA.RKDArRKHC INCREMENTED 
[•CORRECTLY. THEN DATA BUFFER IS CLEARED OUT AND A READ IS DONE 
[•INTO IT. A CHECK IS MADE TO SEE IF THE CORRECT DATA WAS RECIEVED. 
[•ONLY 12 DATA ERRORS ARE REPORTED. 
[ [ *•••*•••••«»«•»•••«•«*••«««*»••••*»»•»«»•••«**••••»»•«*••»«••** 



017700 002000 



TST5! 



172352 
172354 
177572 



006450 001110 



000001 
137000 



172524 
172512 
172506 
172474 



SCOPE 

CMP 

BHIS 

JMP 

MOV 

MOV 

MOV 



(LSTBKr*2000 
IS 

TST6 

*1600,»«KIPAR5 
«2000,9*KIPAR6 
•lr0*SR0 



;33k or MORE OF MEMORY? 
[YES 

[If NOT, OONT DO THIS TEST 
[MAP 28-32K THRU PAR 5 
[MAP 32-36K THRU PAR 6 
[TURN ON MEMORY MANAGEMENT 



[SET UP DATA BUFFER (1000 OCTAL WORDS LONG) FOR WRITING TWO SECTORS 
[ON THE DISK. THE TRANSFER IS DONE AROUND THE 32K BOUNDARY FROM 
[BUS ADDRESS (PHYSICAL) 177000 TO 200776, (32K-256) TO (32+256) 

[DATA IN THE BUFFER IS A COUNT PATTERN STARTING FROM 1 FOR THE FIRST 
[WORD TO (000 FOR THE LAST WORD. 

[PHYSICAL BUFFER ADDReSSI 177000 TO 200776 (32K-256 TO 32K+256) 



MOV *2t,SLPERR 
CON. RESET 
DRV. RESET 



MOV 

MOV 
MOV 
INC 
CMP 
BNE 
MOV 
MOV 
MOV 
MOV 

CON. ROY 

JSR 
ERROR 



• 1,R0 

1137000, Rl 

R0,(R1)+ 

R0 

R0,»100i 
31 

QDRV,9RKDA 
»-1000,9RKMC 
«177000,»RKBA 
»3,»RKCS 



PCCHKCS 
102 



[LUP TO 2( ON EROR (SW 9) 



[INITIALIZE DATA PATTERN TO BE 
[WRITTEN 

[BA TO START PHYSICAL ADDRESSal77000 
[WRITE COUNT PATTERN (1-1000) 
[INTO DATA BUFFER (PHYS ADORES 
[177000 TO 200776) 

[SUR 0, SEC 0, CYL 
[WORD COUNT «2 SECS 
[BUS ADDRESS, 
[WRITE, GO 

[WAIT FOR CNTROL RDY 

[ANY EROR IN RKCS? 
['ERR' SET IN RKCS, ON DOING A 
[WRITE OF SECTORS (0,1) FROM 
[(PHYSICAL) BUS ADORESSS 177000 
[(177000 TO 200776) 

[CHECK THAT RKBA OVERFLOWED INTO 
[EXTENDED HEM. BIT (0) OF RKCS (BIT 4) 
[EX MEM BIT SET? 
[GET RKCS, ER, OS, DA 

(MEX BITS INCORRECT, BIT 4 OF RKCS 

[CKEX BIT d) SHOULD ''AVE SET 
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1 h^S 








1 ftlft 


006544 


012703 


00 1 000 


1 A^T 


006550 


012704 


1 77000 


1628 


006554 


004737 


020056 


1 b79 


006560 


104104 




1 6?^ 








1 6 ? t 








1 t'l 












01 3702 


00 1502 


1 h ^ 


006566 


062702 


000002 




00657 2 


0047 37 


0200 3 4 




00657 6 


104103 












1 ft a 








1 ft Q 

1 J 








1 ftti 










0066^0 


0047 37 


0201 36 


1 \ 


1^6604 


104105 




1 ft J 








1 ft d 
1 fti^ 








. * ri 
















I 111 








1 ft H 








I ^'g 








1 ^Cl 


00660b 


012737 


0066 1 4 


_ 


0066 1 4 


104416 






006616 


1 04420 












1 


006620 


012701 


1 37 000 


, ^_ 


006624 


005021 




1 h^f) 


006626 




141000 


1 h57 


00663 2 


00 1374 




ftSH 








1 ftSQ 








fiftl? 








hft 1 








1 662 








1663 


0066 3 4 


01 3777 


001 502 


1 664 


006642 


012777 


1 7 7000 


1665 


006650 


012777 


1 77000 


1666 


006656 


01277 7 


000005 


1667 








1663 


006664 


1 0441 7 




1 669 








1670 


006666 


004737 


020020 


1671 


006672 


104102 




1572 








1 673 








1674 








1675 








1676 








1677 








1673 









172366 
172354 



MOV 
MOV 
JSR 
ERROR 



MOV 
ADD 
JSR 
ERROR 



«1000,R3 

»1770a0,R4 

PCCHKBA 



QORV, P2 
»2>R2 
PCjCHKDA 
lfi3 



JSR PC.CHKrtC 
ERROR 105 



MOV i4S,SLPEPR 
CON. RESET 
DRV. RESET 



MOV 
CLR 
CmP 
BNE 



MOV 
MOV 
MOV 
MOV 



#137000, Rl 
CRl ) + 

Rl , *141000 
5S 



ODRV,aRKDA 
#-1000. BRKWC 
♦177000, 9RKBA 
♦S.aRKCS 



CON.BDY 



JSR 
ERROR 



PCf CHKCS 
102 



lAFTER RKBA OVERFLOWED ON DOING 
JA transfer OF 2 SECTORS FROM BUS 
JADDRESS CPHYSICAL) STARTING AT 177000 
;WOBD COUNT 
(STARTING BUS ADDRESS 
(CHECK IF RKBft INCREMENTED CORRECTLY 
SJBKBA DID NOT INCREMENT CORRECTLY 
(AFTER WRITE IF 2 SECTORS FROM A DATA 
(BUFFER STARTING AT (PHYSICAL) BUS 
(ADDRESS C177000-200776) 
(GET EXPECTED 
(DISK ADDRESS 

(CHECK IF RKDA INCREMENTED CORRECTLY 
(RKDA INCREMENTED WRONGLY AFTER 
(A WROTE OF 2 SECTOR (0,1) FROM 
(DATA BUFFER STARTING AT BUS 
(ADDRESS (PHYSICAL) 177000. 

(CHECK IF RKWC OVERFLOWED CORRECTLY 
(RKWC DID NOT OVERFLOW TO ON 
(DOING A WRITE OF 2 SECTORS FROM 
(BA » 177000 

(NOiJ, READ IS DONE OF THE DATA 
(THAT WAS WRITTEN TO SEE IF IT 
(CAN BE READ CORRECTLY 

(LUP TO 4S ON EROR (SW 9) 



(CLEAR THE 1000.WORD DATA 
(BUFFER (Pa 177000 TO 200776) 
(ALL DONE? 



(NOW/ READ BACK INTO THE 
(SAME BUFFER 2 SECTORS 
(WRITTEN PREVIOUSLY 

(ADDRESS THE DRIVE CYL 0, SEC 0, 

(READ 2 SECTORS 

(INTO THIS BUS ADDRESS 

(READ» GO 

(WAIT FOR CNTROL RDY 

(ANY ERROR IN RKCS? 
(ERROR BIT SET IN RKCS ON DOING 
(A READ OF 2 SECTORS (0,1), CYL 0» 
(SUR 0, INTO DATA BUFFER STARTING 
(AT BUS ADDRESS 1770000, NOTE AFTER 
(1777776, RKBA WILL OVERFLOW (0) 
(INTO MEX BITS (BIT 4) OF RKCS. 
(IF THE ENTIRE TRANSFER (1000 WORD) 
(WAS DONE RKBA WILL CONTAIN 1000 
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CHECK DATA TRANSFER AROUND 32K BOUNDARY 



1679 














163i1 














1631 


006674 


012705 


177764 


6S: 


MOV 


».14,b5 


1692 


006700 


012702 


137000 




MOV 


#137000, R2 


1683 














1634 


006704 


012701 


000001 




MOV 


»1,R1 


1695 














1686 


006710 


020112 




7SI 


CMP 


Rl, (R2) 


1687 


006712 


031414 






BEO 


8$ 


1688 


00671 4 


005705 






TST 


R5 


1699 


00671 6 


001420 






8EQ 


9$ 


1690 


006720 


005205 






INC 


R5 


1691 














1692 


006722 


010137 


0fcl 162 




MOV 


R1,SREG0 


1 693 














1 (j94 


006726 


011237 


001164 




MOV 


(r2),$REG1 


1695 


006732 


134107 






ERROR 


107 


1696 














1697 














1698 














1699 














1700 


006734 


104421 


002214 




TYPMSG 


>MSG13 


1731 


006740 


004737 


017702 




JSR 


PC'TYPDBO 


1 702 














1703 














1 7J)4 


006744 


062702 


000002 


8St 


ADD 


«2,R2 


1705 


006750 


005201 






INC 


Rl 


1 736 


006752 


022701 


001001 




CMP 


11001, Rl 


1707 


006756 


001354 






BNE 


7S 


1708 














1709 














1710 


006760 


005037 


177572 


9s: 


CLR 


9iSR0 



(AND BIT 4 OF RKCS (MEX) WILL BE SET, 

(REPORT ONLY 12 ERRORS. 
(STARTING ADDRESS OF BUFFER 
( (P*=177000) 

(INITIALIZE DATA PATTERN 

(CORRECT DATA WORD RECVD? 

(REPORT THIS ERROR? 

(COUNT ERORS 

(GET EXPCTED DATA WORD 

(GET DATA WORD RECVD 
(DATA COMPARISON ERROR ON DOING A 
(READ OF 2 SECTORS (0,1, CYL 0» SURFACE 
(INTO DATA BUFFER (PHYSICAL ADDRESS 
(177000 TO 200776) 

(TYPE 'PHYSICAL BUS ADDRESS' 

(TYPE THE 6 DIGIT PHYSICAL BUS ADDRESS 

(WHERE THE DATA ERROR OCCURRED. 

(INCREMENT POINTER TO BA 

(CHECKED THE ENTIRE BUFFER? 



{••OFF 

(TURN OFF MEMORY MANAGEMENT 
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1711 






1 7 1 2 






I 7 1 3 






1 1 ' 2 






lit 






J ' * 






1717 






1 7 ] 8 












i 720 


006764 


000004 


1721 






1722 


006 /DO 


023727 


1723 


00677 4 


4 a ^aa 7 

X 3vV * 


1 724 


006776 


afxa t n 
9W 1 J r 


1 725 


007003 


012737 


1 726 


0070 1 


012737 


1727 






J 729 












1 71fl 






1711 


nam i A 


012737 


1732 






17 33 


007026 


1 04420 




007030 


01 < r BfV 


17 35 


007034 


012701 


17 36 


007040 


1 002 1 


17 37 


007042 


005200 


17 38 


007044 




1739 


007050 


00 1 37 3 


1740 






17 41 


007052 




17 42 


007060 


0127 7 7 




007066 


2^ 




\0v tv f H 


01 27 7 7 


1745 






1746 


007 102 


] 0441 7 








1748 


007104 


004737 


1749 


0071 10 


1 04102 


} 35? 






1751 






1792 






175 3 






1754 












1 756 






1757 




0047 37 


1756 






1759 


007 116 


1041 06 


1 760 






1761 






1762 






1763 


007130 


012703 


1764 


007124 


012704 


1765 


007130 


804737 


1766 


007134 


104104 



001602 
000001 



001502 
1 70000 
160000 
000003 



020020 



010000 

160000 
020056 



I ;♦••♦♦»»♦••»•»»•»♦•••♦••»•••••••»•••»»#•••••••*»#•»••♦•••»••»»•• 

J»TEST 6 CHECK DATA TRANSFER FROM 28K TO 32i! 

)»TH1S TEST DOES A WRITE OF 4K WORDS FROM A BUFFER LOCATED AT 28K 
I#THEN THE DATA IS READ BACK INTO THE SAME BUFFER(28K-32K) AND IS 
»»CHECKED TO SEE IF IT IS CORRECT. NOTE THAT THE BUFFER IS FILLEC 
r»WITH ALL !'S BEFORE DOING THE READ, 

)»THE WRITE IS DONE STARTING AT CYLINDER B. SECTOR 0, SURFACE 0, 
f f »••«»♦♦••#•••»#•#•»«••••»#»»»•##♦••••••••••#••••#»»»••»••••••#• 

TST6I SCOPE 



172352 
177S72 



CMP 

BHIS 

JMP 

MOV 

MOV 



ILSTBK,#1740 
1« 

TST7 

I1S00,IIIKIPAR5 
ti.0ISR0 



>32K or MORE OF MEMORlf? 
»YES 

!IF NOT, OONT DO THIS TEST 
;MAP 28-32K THRU PAR 5 
;TURN ON MEM MANAGEMENT 



IWRITE A COUNT PATTERN (1>10000) INTO DATA BUFFER (PHYSICAL ADDRESS 

» 160300-177776), THIS DATA BUFFER WILL BE USED FOR WRITING ON THE DISK. 



007024 001110 



000001 
120000 



MOV *2t,(LPERR 
CON. RESET 
DRV. RESET 



1721S0 
172136 
172132 
172120 



MOV 
MOV 
MOV 
INC 
CMP 
BNE 

MOV 
MOV 
MOV 
MOV 



II, R0 

*120000,R1 

R0,(Rl)-f 

R0 

R0,*1000) 
3$ 

ODRV,»RKDA 
*-100e0,iRKWC 
*1 60000, »F!KbA 
•3,aRKCS 



CON.RDY 



JSR 
ERROR 



PCCHKCS 
102 



JSP PCCHKWEX 
ERROR 106 



MOV 110000, R3 

MQV *16a000,R4 

JSP PCCHKBA 

ERROR 104 



tLUP TO 28 ON EROR 



> INITIALIZE DATA PATTERN TO BE HPITTEN 
;INITIALIZE BA CPAS160000) 28K 
JWRITE COUNT PATTERNS Cl-10000) 
rINTO DATA BUFFER CPA 160000 TO 
;177775, 28K-32K) 



IHRITE ON SEC 0, CYL 0. SURl 
;4K WORDS 

;fRom This bus addpess 

i WRITE, GO 

;WAIT FOR CONTROL READY 

>ANY ERROR IN RKCS? 

J'ERR' BIT SET IN RKCS ON DOING 

iA WRITE OF 4k WORDS FROM 160000 

J(28K-32K), DISK WRITE BEGAN ON 

)SEC B, CYL 0, SUR 0. IF ALL 4K 

; WORDS HERE WRITTEN RKBA SHOULD OVERFLOW 

;AND CONTAIN 0. BIT 4 OF RKCS 

;(MEX BIT) SHOULD BE 1 

JCHECK IF RKBA OVERFLO>iEO AND MEX 
;BITS (4) IN RKCS WAS SET. 

jimex Bit 4 not set afteR oveRlfow cr 

SRHBA. WRITE OF 4K WORDS C28K-32K) WAS DO^JE, 

JRETURN HERE IF NO ERROR 

;WORD COUNT 

ISTaRIING BUS ADDRESS 

;CHECk IF RKBA INCREMENTED CORRECTLY 

JRKBA DID NOT OVERFLOW TO AFTER A WRITE IF 4K 
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08157 




T6 


CHECK DATA TRANSFER FR? 


M 28k TO 32k 


1767 
















;WORDS (160000 TO 177776) 


1768 


















1769 


007136 


004737 


020136 






JSR 


PCCHKWC 


>CHECK RKWC OVERFLOWED CORRECTLY 


1770 


007142 


104105 








ERROR 


105 


IRKWC DID NOT OVEFLOH TO 


I 771 
















fAFTER A WRITE OF 4K WORD (1600BO 


1772 
















fTO 177776) 


1773 


















1774 


















1775 


007144 


012737 


007152 


0^1 1 10 




MOV 


•4t,SLPERP 


{RETURN ADDRESS FOR LUPING 


1776 


007152 


104416 






4(1 


CON. RESET 




1777 


007154 


104420 








DRV. RESET 




1 778 


















1779 


007156 


012701 


120000 






MOV 


1120000, Rt 


;CLEAR THE DATA BUFFER BEFORE 


1780 


007162 


005021 






5«I 


CLP 


(Rn+ 


IDOING A READ INTO IT 


1781 


007164 


022701 


140000 






CMP 


•140000, Rl 




1782 


007170 


001374 








BNE 


St 




1783 


















1784 


007172 


013777 


001502 


172030 




HOV 


QORV,»RKOA 


;READ FROM SEC 0, SUR 0, CYL 


1785 


007200 


012777 


170000 


172016 




MOV 


#•10000, 8RKWC 


J4K WORDS 


1786 


007206 


012777 


160000 


172012 




HOV 


f 160000, 0RKBA 


;INTO THIS BUS ADDRESS 


1787 


















1789 


007214 


012777 


000005 


j '2003 




HOV 


*5,8RKCS 


;read, go 


1789 


007222 


104417 








CON.RDY 




JWAIT FOR CKTROL BDY 


1790 


















1791 


007224 


004737 


020020 






JSR 


PCCHKCS 


;ANY error IN RKCS? 


1792 


007230 


104102 








ERROR 


102 


JERROR BIT SET IN RKCS ON DOING 


1793 
















J A READ or 4k WORDS INTO MEMORY 


1794 
















JC160000-177776) 


1795 


007232 


012705 


177764 






MOV 


t-14,RS 


f REPORT 12 ERRORS AT HOST 


1796 


007236 


012702 


130000 






MOV 


1120000, P2 


(STARTING ADDRESS OF BUFFER 


1797 
















) (PA« 160000} 


1798 


007242 


012701 


000001 






MOV 


«1,R1 


(INITIALIZE DATA PATTERN 


1799 


















1800 


007246 


020112 






6»s 


CMP 


Pl,CR2} 


(CORRECT DATA WORD? 


1801 


007250 


001413 








BEO 


71 




1802 


007252 


010137 


001162 






MOV 


Rt,$REG0 


(GET EXPCTD DATA WORD 


1803 


007256 


011237 


001164 






MOV 


(R2),tREG; 


(GET DATA WORD RECVD 


1804 


007262 


104107 








ERROR 


107 


(DATA ERROR ON DOING A REAP OF 


1805 
















(4K WORDS STARTING FROM SEC I, 


1806 
















(CYL 0, SUR INTO MEMORY C160000> 


1807 
















(1777776) 


1808 


007264 


104421 


002214 






TYPMSG 


,MSG13 


(TYPE 'PHYSICAL BUS ADDRESS' 


;.8e9 


007270 


004737 


017702 






JSR 


PCTYPDBO 


(TYPE OUT THE PHYSICAL BUS AD;)RC5S 


1810 
















(WHERE DATA 


1811 


007274 


005205 








INC 


RS 


(ERROR OCCURRED. R2 CONTAINS 


1812 


007276 


001406 








BEO 


8t 


(THE VIRTUAL ADDRESS 


1813 


















1814 


007300 


062702 


e0e002 




7SI 


ADD 


12, r2 


(POINTER TO NEXT 8A 


1815 


007304 


005201 








INC 


Rl 


(NEXT PATTERN 


1816 


007306 


022701 








CmP 


11000, K» 


(ALL DONE? 


1917 


!'07312 


001 355 








BNE 


6$ 


(NO 


18*8 

I s \ s 


3I8T514 




177573 




9$! 


CLP 


f »SP? 


(TUPS Orr HEM MRHI.5EMENT 
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1821 !*TEST 7 PERFORM THE LARGEST POSSIBLE DATA TRANSFER 

1822 JTHIS TEST PERFORMS THE LARGEST DATA TRANSFER POSSIBLE 

1823 »WITHIN AVAILABLE MEMORY. 
1824 

1825 Jlj IF Kill IS PRESENT A WRITE OF 16K WORDS IS DONE ON 

1826 ;THE DISK (PROVIDED 28K OR MORE IS PRESENT). 
1827 

1828 !2) IF KTU IS NOT PRESENT THEN ALL BUT TOP 1,5K OF MEMORY WILL BE USED 

182» JFOR WRITING CRKDP MONITOR), 

183a 

1831 (ALL DATA TRANSFERS ABE DONE STARTING AT BA 'PGEND', 

1832 »ALL WRITES ARE DONE BEGINNING AT SECTOR 0» CYLINDER 0» 

1833 (SURFACE Z, 
1834 

1835 (AFTER DOING THE 'WRITE' A 'WRITE CHECK* IS DONE 

1836 (TO SEE !F THE WRITE WAS DONE CORRECTLY. ANY WRITE 

1837 (CHECK ERROR IS REPORTED. 

1839 ; )««*«••**•»••««••*«»«»••««•»*« »*•*****••••«•»#*««**«»«••»•«**«*« 



1839 


007320 


000004 




TST7I 


SCOPE 




184B 


007322 


005737 


017432 




TST 


SKTI 1 


(MEMORY MANAGEMENT PRESENT? 


1841 


007326 


t 00004 






BPL 


1$ 


(NO 


1942 














* YES 


13 4 3 


1707 3 30 




0177 30 


001540 


CMP 


SLSTBKf >i540 


(28K OR MOREI 


1844 


007336 


002034 






BGE 


XFR16K 


J YES 


1845 
















1846 


007 3 40 


01 3703 


002054 


1 5 ! 


MOV 


HAXBA» R3 


(FIGURE OUT THE MAXIMUM 


1847 


007 344 


1 62703 


032412 




SUB 


IPGEND»R3 


( XFER that can BE DONE 


1848 


007350 


000241 






CLC 






1349 


007352 


006003 






ROR 


R3 


(FROM 'PGEND' TO THE 


1BS0 














( 'MAXBA' 


1S?1 


007354 


005001 






CLR 


Rl 




1852 


007356 


010346 






MOV 


R3.-(SP) 


(PUT DIVIDEND ON STACK CLO) 


1853 


007360 


005046 






CLR 


-(SP) 


((HIGH PART) 


1854 


007362 


012746 


000400 




MOV 


i400.-CSP) 


(DIVISOR 


1855 


007366 


004737 


025120 




JSB 


PC# SiSDlV 


;G0 TO DIVIDE ROUTINE 


1 8S6 


007372 


005726 






TST 


(SP) + 


(POP OFF REMAINDER FROM STACK 


1857 


007374 


001401 






BEQ 


2$ 




1858 


007376 


005201 






INC 


Bl 


(GET » OF SECTORS REQUIRED TO 


1859 














(DO WRITE OF i OF WORDS 


I860 


007400 


062601 




2$l 


ADD 


CSP)+,R1 


[(CONTAINED IN R3). Rl CONTAINS 


1861 














{» OF SECTORS 


1862 


007402 


005062 






CLR 


P2 


(FORM THE EXPECTED DISK 


186 3 


007404 


162701 


000014 


3$: 


SUB 


*14.R1 


(ADDRESS " AFTER THE WRITE 


1864 


007410 


100403 






BMI 


4$ 


(IS DONE. 


1865 


007412 


062702 


000020 




ADD 


120, R2 




1866 


007416 


000772 






BR 


3S 




1867 


007420 


062701 


000014 


4$S 


ADD 


»14,R1 


JR2 CONTAINS EXPCTD RKDA 


1868 


007424 


050102 






BIS 


R1.R2 


(AFTER WRITE IS DONE 


1869 


007 426 


000404 






BR 


XFR 




1870 
















1871 


007430 


012703 


040000 


XFR16K: 


MOV 


t40000«R3 


(« OF WORDS « 16K 


1872 


007434 


012702 


000124 




MOV 


*t24>R2 


fRKDA SHOULD INCPEMENT TO 


1873 














(THIS AFTER A TRANSFER OF 16K 


1874 














(WORDS STARTING AT DISK 


1875 














(ADDRESS ' CCYL 2,SUR 1»SEC 4 


AtNOEC 


-1 1-DZRKH-F 


MACYll 


27C1006) a4-0CT 


-76 


13(29 PAGE 42 
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1876 


















1877 


007440 


053702 


001502 




XFRS 


BIS 


QDRV>R2 


(ADD THE DRIVE » TO 


1878 
















(EXPCTD BKDA AFTER XFER 


1879 


007444 


012737 


007452 


001 110 




MOV 


tlS.SLPERR 


(LUP BAK TO 'It' ON ERROR 


1880 
















(CSW 9) 


1 881 


007452 


104416 






1${ 


CON, RESET 




1882 


007454 


104420 








DRV. RESET 




1883 


007456 


013777 


001502 


171544 




MOV 


ODRV,(>RKDA 


(ADDRESS THE DRIVE, CYL 0,SUR 0, 


1884 
















(SEC 


1885 


007464 


010377 


171534 






MOV 


R3>9RKWC 




1886 


007470 


005477 


171530 






NEC 


9RKw: 


(WORD COUNT (IF MORE THAN 


1887 
















(28K IS AVAILABLE A TRANSFER 


1 888 
















(OF 20K WILL BE DONE, IF 


1 889 
















(LESS THAN 28K, THE 


1890 
















(LARGEST TRANSFER WITHIN THE 


1891 
















(AVAILABLE MEMORY WILL 


1892 
















(BE DONE, IN BOTH 


1893 
















{CASES, DATA TRANSFER 


1 894 
















(WILL BE DONE STARTING 


1895 
















(AT 'PGEND' 


1 896 


007474 


012777 


032412 


171524 




MOV 


«PGEND>9RKBA 


(START WRITE FROM HERE 


1897 


007502 


312777 


000003 


171512 




MOV 


• 3,()RKCS 


(WRITE, GO 


1898 


















1399 


007510 


104417 








CON.RDY 




(WAIT FOR CONTROL READY 


1900 


















1901 


007512 


004737 


020020 






JSR 


PC.CHKCS 


(CHCK RKCS FOR ERROR? 


1932 


007516 


104102 








ERROR 


102 


(ERROR BIT SET IN RKCS ON 


1903 
















(DOING A LARGE 'WRITE' 


1 904 


















1905 


007520 


304737 


020034 






JSR 


PCCHKDA 


(CHECK IF RKDA INCREMENTED CORRECTLY? 


1936 


007S24 


1041K3 








ERROR 


103 


(RKDA DID NOT INCREMENT 


1907 
















(CORRECTLY 


1909 


















1909 


007526 


012704 


032412 






MOV 


•PGEND»B4 




1910 


007532 


004737 


020056 






JSR 


PCfCHKBA 


(CHECK THAT RKBA INCREMENTED 


1911 
















(CORRECTLY? 


1912 


007536 


104104 








ERROR 


104 


(RKBA DID NOT INCREMENT 


1913 
















(CORRECTLY 


1 91 4 


















1915 


007540 


004737 


020136 






JSR 


PCjCHKWC 


(CHECK THAT RKWC OVERFLOWED 


1 916 


007544 


104105 








ERROR 


105 


(RKWc DID NOT OVERFLOW TO 


1917 
















(ZERO AFTER A WRITE 


1918 


















1919 


007546 


012737 


007554 


001110 




MOV 


«21>SLPERR 


(LUP BAK TO '28' ON EROR CSW 9) 


1920 


007554 


104416 






2$t 


CON, RESET 




1921 


007556 


104420 








DRV. RESET 




1922 


007560 


013777 


001502 


171442 


3tl 


MOV 


QDRVfdRKDA 


(ADDRESS THE DRIVE, CYL 0,SEC 0,SUR 


1923 


007566 


010377 


171432 






MOV 


R3riaRKMC 




1924 


007572 


005477 


171426 






NEG 


l»BKWC 




1925 


007576 


012777 


032412 


171422 




MOV 


tPGENO>l)RKBA 


(STARTING BA 


192b 


















1927 


007604 


012777 


000407 


171410 


4S( 


MOV 


»407,pRKCS 


(WRITE CHECK, SSE, GO 


1 928 


















1929 


007612 


104417 








CON.RDY 




(WAIT FOB CONTROL RDY 


1930 


















1931 


037614 


004737 


020020 






JSP 


PC.CHKCS 


(ANY ERROR IN RKCS 
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SEO 0(556 



1932 


007620 


IVt XVJ A 










102 




1933 


















1934 




032777 


040000 


171 J72 




BIT 


*BITl 4# 9RKC5 


{ SK IP CHECK I nG for WCE IF HE SET 


1935 


0076 30 


001030 








BNE 


78 




1936 






000001 


I 7 1360 


581 


BIT 




yWRITE CHECK ERROR* 


19 37 


WW f 04 w 


aA 1 Aom 








BEO 


68 


f NO 


1938 


















1939 






If ^ 






JSP 


PC r GT4RG 


?GET RKCSfER'DSrDA 


1 94a 


007646 


017737 


171 354 


001 1 66 






PRKBAf 8PEG2 




1941 


00765 4 


1 041 1 








ERhOP 


110 


'WRITE CHECK ERRORi RKDA GIVES THE DISK ADDRESS 


1942 


















1943 
















lERROR IS OBTAINED BY BACKING OFF 1 SECTOR} i 


1944 
















JrlUlc. rnAI iniL uMIA DUrrCir nnlLn nAO vfKiic. 


1 945 


















1946 
















• rt Tvr K1 7 ynon Vft^ ^ diit tg cnup 
(vuilKC. 4E90f f*UKL/ biOrt^r bUl lo OUnc, 


1947 
















J DLL lUnD <i A rKALilvn lull\Ei 9<0v nvftUO C<iwaJ 


1949 


















1 Q^fl 




005777 


171 342 




681 


TCT 


ARKWC 


■ ukc TUP PMTTar nsTft citrppo 
rfVAd int cniiKCi uaxa DurrciK 




007662 


001 41 3 








BFQ 






1 95 1 


















1952 


tfv 1 DO •» 


017705 


71 ^ Id 






MOV 


ADIf . D i( 




1 953 




|[7*c « ' v3 


17 760 






BIC 


HI in f<7k ."Q^ 


fFOR" THE RKBA AND RK"C 


1 95 4 


aa7i^7 A. 










Sub 






1 955 


00767 6 


1 60577 


1 J24 








" 3 f IP nIVDA 




1 956 
















JWRITE-CHECK IF THE REST 


1 957 


007702 


042777 


00001 7 


171 314 




B IC 


»l7«ilRKWC 


JOF THE DATA BUFFER 




















19S9 


007710 


0007 35 








BR 


4$ 


;G0 DO WRT-CHK FOR 


I960 
















fREST OF THE BUFFER 


1961 


















1962 










;G0 


CHECK THE 


REST OF THE DRIVES, 


1963 


















1964 


007712 


000137 


005312 




7S« 




NXTDRV 





MAISDEC-1 1-OERKH-F MACYU 27C1CI06) 04-OCT-76 13:29 PAGE 44 

DERKHF.Pll 22-SEP-7S 08157 EXERCISrR PROGRAM SEQ 0057 



1965 








.SBTTL 


EXERCISER PROGRAM 




1966 
















1967 








;BEGINING OF 


THE EXERCISER PART 


OF THE PROGRAM. 


1968 








JIF THE 


PROGRAM HAS RESTARTED M 210, THEN THE STATISTICS COLLECTED 


1969 








;S0 FAR 


WILL 


NOT BE CLEARED. 




1970 
















1971 
















1972 


007716 


104416 




EXPCSB! 


CON. RESET 




1973 


007720 


012700 


001306 




MOV 


#(tEy»R0 


!CLEAR UP THE LOCATIONS FROM 


1974 


007724 


005020 




ISl 


CLP 


(R0) + 


S'KEY' TO 'KWHR* (EXCLUDED) 


1975 


007726 


020027 


001552 




CMP 


R0,»KriHR 




1976 


007732 


001374 






BNE 


IS 




1977 


007734 


105737 


001253 




T5T8 


FRSTRT 


[RESTARTED AT 2107 


1978 


007740 


001045 






BNE 


3$ 


SYES, SAVE THE STATISTICS COLLECTED 


1979 














SUPIILL NOW, OONT CLEAR THEM 


1980 
















1991 


007742 


005020 




2$! 


CLP 


CP0) + 


JCLEAR LOCATIONS FROM 'HECN' 


1982 


007744 


020027 


002032 




CMP 


R0,#PCMND 


>T0 'PCMND' (EXCLUDED) 


1983 


007750 


001374 






BNE 


2S 




1984 
















1985 


007792 


012700 


001554 




MOV 


»KWMIN,R0 


INITIALIZE COUNTS FOR MINS, 


1986 


007756 


012701 


177704 




MOV 


*-60.,Rl 


;SECS, KWll 


1987 


007762 


010120 






MOV 


Rl, CR0)+ 




1988 


007764 


010120 






MOV 


R1,(R0)+ 




1989 


007766 


010120 






MOV 


R1,(R0)+ 




1990 
















1991 


007770 


012700 


025636 




MOV 


l«RSDRVL,R0 


; INITIALIZE PTR TO RANDOM NO. SEEDS 


1992 


007774 


012720 


123456 




MOV 


*123456,(R0)+ 


;USeD by THE RANDOM NUMBER GENERATOR 


1993 


010000 


012720 


176543 




MOV 


«176543, (R0)t 


!SET UP RANDOM NUMBER SEEDS TO BE 


1994 


010004 


012720 


001201 




MOV 


*1201,(R0)+ 




1995 


010010 


012720 


062465 




MOV 


fe2465> CR0]4' 




1996 


010014 


012720 


176105 




MOV 


•176105, (R0}t 




1997 


010020 


012720 


174532 




MOV 


#174532, (R0)+ 




1998 


010024 


012720 


157650 




MOV 


»lS765a, CP0)+ 




1999 


010030 


012720 


030753 




MOV 


#30753, (R0)+ 




2000 


010034 


012720 


131547 




MOV 


#131547, CR0)+ 




2001 


010040 


012720 


032070 




MOV 


♦32070, (R0)+ 




2002 


010044 


012720 


123456 




MOV 


1123456, (R0]+ 




2003 


010050 


012720 


176543 




MOV 


#17654 3, (R0) 




2004 
















2005 
















2006 


010054 


013737 


001236 002056 


3$) 


MOV 


PCNTR,REPCNT 


(REPETITION COUNT, WHEN THIS COUNT GOES 


2007 














tTO 0, IT'S CONSIDERED TO BE AN END OF PASS. 


2008 














(THE NEXT PASS WILL START WILL START RIGHT 


2009 














(FROM WHERE THE EXERCISER LEFT OFF, 


2010 
















2011 


010062 


004737 


022564 




JSR 


PCCHDPRS 


(CHECK IF ANY DRIVES ARE PRESENT 


2012 














IIF NONE, GO TO SEOP, END OF PASS 


2013 
















20T4 
















2015 
















2016 
















2017 


010066 


012746 


177777 




MOV 


#177777, -CSP) 


[PUT LOW DIVIDEND ON STACK 


2018 


010072 


005046 






CLR 


-(SP) 


(CLEAR HIGH DIVIDEND AND PUSH 


2019 














[IT ON STACK 


2020 


010074 


013746 


091264 




MOV 


DRVPRS,-£S?) 


[PUSH DIVISOR ON STACK 
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S£Q 0058 



2M21 


131010(4 


004737 


025120 




JSB 


PC, dlSDIV 


2^22 


010104 


005726 






TST 


CSP) + 


2192 ' 














2<124 


010106 


012637 


001520 




MOV 


(SP)+,DRMAP 


2(125 


010112 


012737 


000504 


001522 


MOV 


»504,ClfLMAP 


2v926 


010120 


012737 


012527 


001524 


MOV 


t5463. 1 SECMAP 


2»)27 


010126 


012737 


031 463 


001526 


MOV 


#13107. ,FNMAP 


237 8 














2329 


010134 


313700 


002054 




MOV 


MAXBA, R0 




010140 


163700 


002052 




SUB 


BASEBA, R0 


23 51 


010144 


000241 






CLC 




28 3 2 


0101 46 


006000 






ROR 


R0 
















2*)34 


010150 


012745 


177777 




MOV 


#177777, -CSP) 


2^?5 


010154 


005045 






CLR 


-CSP3 


2^36 














2037 


010156 


010046 






MOV 


Ra,-csP) 


2^38 


010160 


004737 


025120 




JSR 


PCSISDIV 


2yJ39 


010164 


005726 






TST 


CSP) + 


2H4i9 














2H41 


010166 


005216 






INC 


CSP) 


2342 


010170 


012637 


001530 




MOV 


(SP)+,BAMAP 



;G0 TO THE 'DIVIDE' SUBROUTINE 
JDISCARD THE REMAINDER, QUOTIENT IS 
!N0« ON TOP OF THE STACK 
;GET HAPPING FACTOR FOR DRIVES 
>GET MAPPING FACTOR FOB CILINDERS 
;GET MAPPING FACTOR FOR SECTORS 
;GET MAPPING FACTOR FOR FUNCTION 

;COMPUTE THE MAXIMUM ALLOWABLE 
;WORD COUNT FOR DATA TRANSFERS 

fCONVERT TO WORDS 

;PUT LOW DIVIDEND OH STACK 

!CLEAB HIGH DIVIDEND AND PUSH 

;IT ON STACK 

fPUSH DIVISOR ON STACK 

;G0 TO THE 'DIVIDE' SUBROUTINE 

;DISCARD THE REMAINDER, QUOTIENT IS 

;NOW ON TOP OF THE STACK 

JSAVE THE MAPPING FACTOR FOR BUS ADDRESS 
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2i143 










;the 


ENTIRE DISK (ALL DRIVES) 


IS WRITTEN WITH RANDOM PATTERNS. THE FIRST 


2044 










rwORD 


OF EACH SECTOR GIVES 


THE 


NUMBER OF WORDS C2's COMPLEMENT) WRITTEN IN 


20J5 










;That 


SECTORS. 


REST OF THE 


DATA WORDS FOR THE SECTOR ARE GENERATED USING 


2k}46 










STHE 


ABSOLUTE DISK ADDRESS 


AS 


THE RANDOM SEED. 


2047 










;IF THE PROGRSM 


WAS RESTARTED 


AT 210 THEN CHECK IF SW 4 IS SET. IF IT IS 


2048 










;THEN 


00 NOT REWRITE THE DISK 


WITH RANDOM PATTERNS. IF SW 4 IS NOT SET THEN 


2i»49 










;ALL 


THE DISKS 


(PRESENT) ARE WRITTEN WITH RANDOM PATTERNS. 


2050 




















2051 


010174 


105737 


001253 




WRDSK 


: TSTB 


FRSTRT 




JRESTAHTED AT 2107 


2 05 2 


010200 


001 407 








BEQ 


IS 




! NO 


2053 


010202 


105037 


001253 






CLRB 


FRSTRT 




;YES, CLEAR THE RESTART FLAG 


2054 


010206 


037777 


000020 


170724 




BIT 


*SW4,(aSWR 




;SW 4 SET? 


7055 


010214 


001401 








BEQ 


IS 




; NO 


2056 


010216 


0^0540 








BR 


BEGEXl 




JYES, DONT REWRITE ALL DISKS WITH 


2057 


















JRANDOM PATTERNS 


2058 


010220 


012737 


010236 


001110 


IS: 


MOV 


»2S,SLPERB 




;LUP TO '2S' ON EROR, SW 9 SET! 


2059 


010226 


012702 


001254 






MOV 


iPDR,R2 




fPOINTER TO DRIVE «'S TABLE 


2060 


010232 


013703 


001264 






MOV 


DRVPRS,R3 




!# OF DRIVES PRESENT 


2061 


010236 


012700 


011410 




2S: 


MOV 


«4872.,R0 




JNUMBER OF SECTORS PER DISK 


2062 


010242 


112201 








M0V8 


(R2)+,R1 




JGEP THE FIRST AVAILABLE DRIVE 


2063 


010244 


042701 


177770 






BTC 


#177770, Rl 




;POSITION THE BITS (15,14,13) 


2 J64 


010250 


010137 


001502 






MOV 


PI ,QDRV 






2065 


01 0254 


000241 








CLC 








2066 


010256 


006001 








ROR 


Rl 






2^67 


010260 


006001 








ROR 


Rl 






2068 


010262 


006001 








ROR 


Rl 






2059 


010264 


006001 








ROR 


Rl 






2070 


010266 


010177 


170736 






MOV 


Rl,aRKDA 




JBASE DISK ADDRESS 


2071 




















2117 2 


010272 


01 3704 


002054 






MOV 


MAXBA,R4 




JCALCULATE MAXIMUM BUFFER 


20T 3 


010276 


163704 


002052 






SUB 


BASEBA, R4 






2074 


010302 


006204 








ASR 


R4 




JCONVERT TO WORDS 


2075 


010304 


042704 


000377 






BIC 


#377, R4 




;KEEP ONLY WHOLE BLOCKS 


2076 


010310 


000304 








SWAB 


R4 






2077 


010312 


020427 


00001 4 






CMP 


P4,I12. 




JMAX OF 12 SECTORS 


2078 


010316 


003402 








BLE 


3S 






2079 


010320 


012704 


000014 






MOV 


112. ,R4 






20S0 
2081 


010324 


010401 






3s: 


MOV 


R4,r1 






208 2 


010326 


020400 








CMP 


R4,R0 






2083 


010330 


003401 








BLE 


4S 






2084 


010332 


010001 








MOV 


R0,R1 






20B5 


010334 


000301 






4s: 


SWAB 


Rl 






2085 


010336 


005401 








NEC 


Rl 






2087 


01 0340 


010137 


010354 






MOV 


R1,5S 






208 8 


010344 


010177 


170654 






MOV 


Rl ,9RKHC 






2099 


010350 


004537 


016612 






JSR 


R5,GEN8UF 




jGENERATE RANDOM DATA BUFER 


2090 


010354 


000000 






5SI 


.WORD 









2091 


010356 


032412 








.WORD 


DBUF 




(STARTING ADDRESS OF DATA BUFER 


2092 




















2093 


010360 


012777 


032412 


170640 




MOV 


*DBUF,9RKBA 


;FROM THIS BUS ADDRESS 


2094 


010365 


012777 


000003 


170626 




MOV 


t3,9RKCS 




;WRITE, GO 


2095 




















2096 


010374 


104417 








CON.PDY 






;WAIT FOR CONTROL RDY 


2097 


010376 


004737 


020020 






JSR 


PCCHKCS 




SANY ERROR? 


2098 


010402 


104001 








ERROR 


1 




;AN ERROR OCCURED WHILE DOING WRITE 
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SE3 



2D99 
















jON THE DISK. YOU ARE ADVISED TO USE 


2 1 00 
















IBASJC AND DYNAMIC TESTS. 


2101 


















2102 


010404 


032777 


000400 


170526 




BIT 


(BITS,»8WR 


JTYPE CURRENT STATUS 


2103 


010412 


001435 








BEQ 


61 




2104 


010414 


032700 


000377 






BIT 


•377, R0 




21 05 


010420 


001032 








BNE 


6* 




2 1 06 


010422 


104401 


010430 






TyPE 


,iSt 


;rTYPE ASCIZ STRING 


2107 


010426 


000421 








BR 


641 


f-lGET OVER THE ASCIZ 


210B 










n6S$i 


.ASCIZ 


<15><12>/HRITTING RANDOM PATTERN, DRIVE / 


2 1 09 


01 0472 








641 1 








2110 


010472 


01 3746 


001502 






MOV 






2111 


010476 


104403 








TYPOS 






2112 


010500 


001 








.BYTE 


* 




2113 


010901 


000 








.BYTE 






2114 


















2115 


010502 


104401 


001213 






TYPE 


,»CRIjP 




2116 


010506 


104407 






6tl 


CKSWP 




>CHECK rOR SOFTWARE SWR CHANGE 


2117 


010510 


160400 








SUB 


R4,R0 


JOECREMENT SECTOR COUNT 


21)8 


01051 2 


003304 








BGT 


3« 




2 1 1 9 
















(MORE DRIVES TO D07 


21 20 


01051 4 


005303 








OEC 


R3 


2121 


010516 


001 247 








BNE 


2$ 




2122 


















2123 










; IP SH 


3 IS SET, 


, ENABLE THE 


LINE CLOCK AND INITIALIZE COUNTS. 


2124 
















JKWllL CLOCK PRESENT? 


2125 


010520 


032777 


000010 


170412 


BEGEXll 


BIT 


*SW3,9SMR 


2126 


010526 


001403 








BEQ 


BEGNEX 


>IF NOT. SKIP. NOTEUF K»*UL IS 


2127 
















;N0T PRESENT SW3 SHOULD NOT BE SET 


2128 
















lOTHERHISE, A TIMEOUT WILL OCCUR, 


2129 


010530 


052777 


000100 


170476 




BIS 


«BIT6,9KHLS 


{ENABLE KWUL CLOCK 


2130 
















JSERVICED AT PRIORITY 7 (KWSRVE3 
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2131 
2132 
2133 
2134 
2135 
2136 
2137 
2138 
2139 
2140 
2141 
2142 
2143 
2144 
2145 



010536 104416 

010540 012706 001100 

010544 005737 001264 

010550 001402 

010552 004737 014406 



ITHE PROGRAM IS GOING TO LOOP BACK TO THIS POINT AT THE END OF A PASS. 



BEGNEXI CON. RESET 

MOV »8TACK,SP 
TST ORVPRS 
BEQ OMNGER 
JSR PCfGENSRO 



JCLEAR EVERYTHING IN DRIVES 
> RESET STACK 

lANY DRIVES LEFT IN SYSTEM? 

;G0 GENERATE 8 COMMANDS FOR THE Q 



fCHECK IF THERE IS ANY UNFINISHED COMMAND IN THE Q, WAITING TO BE EXECUTED, 
}ir THERE IS NONE* GO TO THE 'GENSRq' AND GENERATE 8 REQUESTS (COMMANDS), 
)AND PUT THEM IN THE 0. IF THE^E IS AN UNriNISHED COMMAND' FIND OUT IF 
;THERE IS A PRIORITY COMMAND TO BE EXECUTED IMMEDIATELY. 



2146 


010556 


013746 


001244 


ONNGERI 


MOV 


PPRLVL,-(SP) 


>NEM PSW , RAISE PRIORITY 


2147 


010562 


012746 


010570 




HOV 


»U,-CSP3 


{RETURN PC »••*•*•**••••*• 


2148 


010566 


000002 






RTI 






2149 
















21519 


010570 


005737 


001264 


111 


TST 


DRVPRS 


JANY DRIVES IN SYSTEM? 


2151 


010574 


001040 






BNE 


2t 




2152 


010576 


104401 


010604 




TYPE 


,65$ 


MTYPE ASCIZ STRING 


2153 


010602 


000432 






BR 


64$ 


1 (GET OVER THE ASCIZ 


2154 








n65ii 


.ASCIZ 


<15><12>/HALTIHa - PRESS CONTINUE TO RESTART AT ' 200 ' /< 1 5>< 1 2>< 1 2>< 1 2> 


2155 


010670 






64t> 








2156 


010670 


000000 






HALT 






2157 


010672 


000137 


003376 




JMP 


START 




2158 
















2159 


010676 


012700 


001306 


2ti 


HOV 


*KEY'R0 




2160 


010702 


005720 




3$l 


TST 


(R0) + 


thH1 UNFINISHED COMMAND 


2161 


010704 


100006 






BPL 


4$ 


(IN Q 


2162 


010706 


020027 


001326 




CMP 


R0,tKEY'»20 




2163 


010712 


001373 






BNE 


3$ 




2164 


010714 


004737 


014406 




JSP 


PCGENBRQ 


;IF NOT, GO GENERATE 8 MORE COMMANDS 


2165 


010720 


000460 






BR 


CHFAFM 




2166 
















2167 
















2168 


010722 


012700 


001306 


41) 


MOV 


•KEY, Re 




2169 


010726 


032710 


010000 


Stt 


BIT 


»BIT12,(P0) 


JANY HIGH PRIORITY COMMAND IN 


2170 


010732 


001404 






BEQ 


6$ 




2171 


010734 


005710 






TST 


(R0) 


IFINISHED? 


2172 


010736 


100402 






BMX 


6$ 


>YES 


2173 


010740 


105710 






TSTB 


(Re) 


»IM EXECUTION? 


2174 


010742 


100165 






BPL 


PRICMNO 


;N0, GO PROCESS HIGH PRIORITY 


2175 
















2176 


010744 


005720 




£tl 


TST 


(»») + 


ICHECK THE ENTI!«E 8 


2177 


010746 


020027 


001326 




CMP 


R0,»KEY+2a 




2178 


010752 


001365 






BNE 


5$ 




2179 
















2180 
















2181 








;FIND OUT IF THERE IS A WRITE 


CHECK FUNCTION TO BE DONE IMMEDIATELY AFTER 


2182 








)«, WRIT 


E, THAT 


WAS DOME PSEVTDUSLY. 


2183 
















2184 


010754 


005737 


001456 




TST 


WCFLG 


;IS WRITE CHECK TO FOLLOW 


7195 


!?10760 


100040 






BPL 




;WRITET IF NOTf BRSSCH 
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SCO 0062 



2187 


010762 


01 3700 


001 456 




MOV 


WCFLGf R0 


;SET WC FLAG 


2188 


010766 


042700 


177400 




BIC 


1 1 77400» R0 


;LOWCR BITE CONTAINS KEYIX2 [OFFSET FROM 


2)89 














;KEY]> OF THE WRITE FUNCTION 


2190 


010772 


01600! 


002032 




HOV 


PCMSDCR0) f Rl 


•GET POINTER 


7191 


010776 


062700 


001306 




ADO 


IIKEY>R0 


I FROM ADDRESS OF THE KE)f 


2192 














!«IHICH MAS USED FOR PREVIOUS 


2193 














; WRITE 


2194 


01 1002 


022761 


000002 


000002 


CMP 


12. 2CR1 ) 


JCHECK THAT THE FUNCTION 


2195 


011010 


001413 






BEQ 


7S 


JWAS A WRITE 


2196 


011012 


011037 


001162 




MOV 


( R0) ( $REG0 


;GET KEY CONTENTS 


2197 


011016 


015137 


000002 


001164 


MOV 


2 CRl ) » SREGl 


;GEI THE FUNCTION INDICATED BY THIS KEY 


2198 


0U024 


1 04027 






ERROR 


27 


>IF NOT, ERROR 


2199 














JBEFORE DOING A WRITE CHECK A WRITE IS 


2200 














;ALNAYS DONE, OCCURANCE OF THIS ERROR 


22(11 














{INDICATES THAT SOMEHOW AN ATTEMPT IS BEING 


2202 














iMADE TO DO WRITE CHECK BEFORE A WRITE IS 


2203 














; PERFORMED 1 THE KEY IN ERROR MESSAGE WAS 


2204 














JTHE ONE WHICH GAVE RISE TO THIS ATTEMPT, 


2205 














;THE FUNCTION CODE IS THE FUNCTION ASSOSCIATED 


2206 














JWITH THAT KEY 


22«7 


0! 1026 


005037 


001456 




'LS 


WCFLG 


fABORT THIS WRITE CHECK 


2208 


011032 


0527 1 a 


1 00000 




BIS 


•BIT15«(R0) 




2209 


011036 


000647 






BR 


QMNGER 




2210 


011 040 


012761 


000006 


000002 7 S I 






ijlr Olio f nnjl V«n^ 


22)1 














; NOW 


2212 


01 1046 


042710 


174340 




BIC 


1174340, (R0) 


.'CLEAR OUT THE UNNECESSARY 


221 3 














{FLAGS FROM THE KEY 


2214 


011052 


052710 


000100 




BIS 


•BIT6, CR0) 


;SET FLAG FOR WRITE CHECK, FOR 


2215 














JIHIS KEY 


2216 


011056 


000137 


011520 




JMP 


EXCUT 




2217 
















2218 














;N0 HIGH PRIORITY COMMAND IN Q 
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2219 








fNO HIGH PRIORITY COMMAND WAS 


FOUND IN THE Q, FIND OUT THE FIRST AVAILABLE 


2220 








fCOMMAND IN THE 


U. FOR EXECUTION, 


2221 


011062 


005000 




CHFAFNJ 


CLR 


R0 


J WAIT FOR ANY IMMEDIATE INTERUPT 


2222 


011064 


005046 






CLR 


-C5P) 


;NEW PSW 


2223 


011066 


012746 


01 1074 




MOV 


»1S,-(SP) 


JRETURN FOR RTI 


2224 


011072 


000002 






RTI 






2225 
















2226 
















2227 


011074 


105200 




is: 


INC8 


R0 




2228 


0U076 


001376 






BNE 


.-2 




2229 


01 1 100 


01 3746 


001244 




MOV 


PPRLVL,-f SP) 


J NEW PSW, LOCK OUT CPU 


2233 


01 1104 


012746 


011 112 




HOV 


«2$,-CSP) 


{RETURN FOR RTI »••»»»#•♦•••» 


2231 


011110 


000002 






PTI 






2232 
















2233 
















2 234 


01 1112 


012700 


001 306 


2St 


HOV 


«KEY,Ra 




2235 


01 1 116 


P0S710 




CHI : 


TST 


(R0) 


{UNFINISHED COMMAND? 


2236 


011 120 


100436 






BmI 


CH2 




7237 


01 1122 


105710 






TSTB 


(R0) 


{IN PROGRESS? 


2238 


011 124 


100434 






BMI 


CH2 




2239 


011126 


01 1001 






MOV 


(R0),R1 




224") 


01 1 130 


042701 


177770 




BIC 


#177770, Rl 




2241 


01 1 134 


105761 


001426 




TSTB 


BUSY(R1 ) 


{IS THIS DRIVE BUSY? 


2242 


011140 


100426 






BMI 


CH2 




2243 


01114? 


105761 


001436 




TSTB 


POSCR! ) 


{HAS THIS DRIVE BEEN POSITIONED 


2244 














{FOR ANY OTHER COMMAND. IF YES, 


2245 














{SKIP. IF NOT, PROCEED 


?2»6 


01 1 146 


001023 






B^4E 


CH2 




2247 
















22*8 














{CHECK IF THERE IS AY OTHER COMMAND 


2249 


01 1150 


01 0002 






MOV 


R0,r2 


{ON A DRIVE THAT IS NOT THE SAME 


225^ 














{AS THE PREVIOUS DRIVE. THIS COMMAND 


2251 


011152 


000414 






BR 


2$ 


{SHOULD NOT BE IN PROGRESS 


2252 














{AND SHOULD NOT HAVE BEEN COMPLETED 


2253 


011154 


00571 2 




is: 


TST 


(R2) 


{UNFINISHED COMMAND? 


2254 


01U56 


100412 






BMI 


2S 




2255 


011160 


105712 






TSTB 


CR2) 


{IN PROGRESS? 


2256 


011162 


100410 






BMI 


2S 




2257 


011164 


01 1 203 






HOV 


(R2),R3 




2258 


011166 


042703 


177770 




BIC 


»177770,R3 




2259 


011172 


105763 


001426 




TSTB 


8USYCR3) 


{IS THE DRIVE BUSY? 


2250 


011 176 


100402 






BMI 


2$ 




2261 


011200 


020301 






CMP 


P3,R1 


{IS THIS COMMAND ON THE SAME DRIVEf 


2762 


011202 


001447 






BEQ 


POSTION 


{IF YES, GO AND POSITION THE COMMAND 


2263 














{POINTED TO BY R0, (BECAUSE THERE IS 


2264 














{ONE MORE COMMAND THAT CAN BE PERFORMED 


2265 














{ON THE SAME DRIVE) 


2266 


01 1204 


005722 




2$; 


TST 


(R2) + 


{CHECK REST OF THE Q 


2267 


011206 


020227 


001326 




CMP 


R2, tKEY4-20 




2268 


011212 


001360 






BNE 


IS 




2269 














{IF THERE WAS NO EXECUTABLE COMMAND 


2270 


011214 


000470 






BR 


EXNSK 


{ON ANY OTHER DRIVE, THEN EXECUTE 


2271 














{COMMAND POINTED TO BY R0 


2272 
















2273 


011216 


005720 




CH2: 


TST 


(R0]> 


{CHECK ENTIRE Q 


2274 


01 1 220 


020027 


001326 




CHP 


R0, IKEY+20 
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SEQ 0064 



2275 


011224 


001334 


2276 






2277 






2278 






2279 






2280 






2281 


01 1226 


1 05777 


2202 


011232 


100402 


2283 


011234 


0001 37 


2284 






2285 


01 1240 


012700 


2286 


011244 


032710 


2287 


011250 


001414 


2288 


011252 


005710 


2289 


01 1254 


100412 


2290 


01 1256 


105710 


2291 


011260 


100410 


2292 


01 1262 


01 1001 


2293 


01 1264 


042701 


2294 


011270 


105761 


2295 


01 1274 


100402 


2296 


01 1276 


0001 37 


2297 






2298 


011 302 


005720 


7299 


01 1 304 


020027 


23014 


011310 


001 355 


2)01 


011312 


000137 


2302 






2303 






2304 






2305 






2306 






2307 






2308 


01 1316 


000137 


2309 






2310 






2 311 






2312 






2313 


01 1 322 


032710 


2314 


01 1326 


001 333 


2315 






231 6 






2317 


01 1330 


004737 


2318 


011334 


004737 


2319 


011340 


012777 


232(» 


01 1 346 


005046 


2321 


01 1350 


01 2746 


2322 


011 354 


000002 


232 3 


01 1 356 




2 324 


011 356 


1 05 737 


2325 


01 1362 


001775 


2326 


01 1364 


012777 


2327 


011372 


000137 


2328 






2329 






2330 







167770 
021344 



001306 
000020 



177770 
001426 



001326 
021344 



012072 
020256 
000111 



013164 
01 1062 



!N0 (UNPOSITIONED) EXECUTABLE COMMAND WAS FOUND IN THE Q. CHECK IF THERE 
;IS ANY POSITIONED COMMAND IN THE Q« WAITING TO BE EXECUTED. 



1$: 

2$t 



TSTB 


ARKCS 


>IF THE CONTROLLER IS BUSY GO TO 


BMI 


1 4 


ISTATUS AND WAIT FOR INTERRUPTS 


JMP 


STATUS 


>IF THE CONTROLLER IS NOT BUSY FIND 


MOV 


»KEY»R0 


!ANY POSITIONED COMMAND AND EXECUTE 


BIT 


«BIT4» CR0) 




BEO 


3$ 


SIT 


TST 


(R0) 


}MAKE SURE COMMAND IS POSITIONED 


BMI 


3S 




TSTB 


CR0) 


{COMMAND IS UNFINISHEOr 


BHI 


3$ 


lIT IS MOT IN PROGRESS, 


HOV 


(R0)f Rl 


fTHE DRIVE IS NOT IN BUSY 


8IC 


#177770, Rl 




TSTB 


BUSy(Rl) 




BMI 


3$ 




JMP 


EXCUT 


jGO EXECUTE THE COMMAND IF THE 


TST 


CR0) + 


JABOVE CONDITIONS ARE SATISFIED 


CMP 


R0,#KEY+20 


JCHECK ALL COMMANDS IN Q 


BNE 


2$ 




JMP 


STATUS 





JENTER HERE IF THERE IS A PRIORITY COMMAND TO BE EXECUTED. 



PRICHNI JMP 



!G0 EXECUTE NOH-SEEK COMMAND. 



;ENTER this if a command is to be PREPOSIIIONED (BEFORE EXECUTING A 
SFUNCTION) 



BIT 


»BIT4, (R0) 


J ALREADY POSITIONED? 


BNE 


CH2 


!YES, GO BACK AND CHECK IF REST OF THE 






JCOMMANOS IN THE ARE TO BE POSITIONED 


JSP 


PC,POSK 


;G0 CHECK, i, SET UP FLAGS 


JSK 


PC'POSCMND 


SSaVE INFO ABOUT PRESENT fc PAST COMAND 


MOV 


«111,9RKCS 


SPOSITtON THE COMMAND 


CLR 


-csp) 


SNEW PSW, DROP PRIORITY 


MOV 


#1$,-(SP) 


;RETURN FOR RTI 


RTI 






TSTB 


INTIFL 




BEQ 


.-4 


jWAlT FOR INTERRUPT 


MOV 


»INTHN0,9RKVEC 


JRE-ESTABLISH RK INTERRUPT VECTOR 


JMP 


CHFAFN 


;G0 BACK AND CHECK IF ANY COMMANDS TO BE 



tPOSITIONED OR EXECUTED 
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2331 
















J IS THERE ANY POSITIONED COMMAND IN 


2332 
















!THE Q. FIND OUT? IF THERE IS 


2333 
















JONE EXECUTE THE POSITIONED COMMAND, 


2334 
















SBUT FIRST POSITION THE COMMAND (KEY) 


2335 
















(POINTED TO BY R0 


2336 


















2337 


011376 


012701 


001306 




exnsk: 


MOV 


»KEY,R1 




2338 


01 1402 


032711 


000020 




iss 


BIT 


»BIT4,(R1) 


(HEADS POSITIONED? 


23 39 


011406 


001412 








BEQ 


2( 




2340 


011410 


005711 








TST 


(Rl) 


(FUNCTION COMPLETED? 


2341 


011412 


100410 








BMI 


2$ 


(YES, BRANCH 


2342 


011414 


105711 








TSTB 


(Rl) 


(FUNCTION IN PROGRESS? 


2 343 


011416 


100406 








BMI 


2$ 




2344 


011420 


011102 








MOV 


(R1).R2 




2345 


011422 


042702 


177770 






BIC 


«177770,R2 




2346 


011426 


105762 


001426 






TSTP 


8USY(R2) 


(DRIVE BUSY? 


2347 


011432 


100005 








BPL 


3$ 




2348 


















2349 


011434 


005721 






2t: 


TST 


(Rl) + 


(CHECK ALL COMMANDS IN Q 


2350 


011436 


020127 


001326 






CMP 


Rl,*KEY+20 




2351 


011442 


001357 








BNE 


1$ 




2352 


















2353 


011444 


000425 








BR 


EXCUT 


(NO POSITIONED COMMAND WAS 


2354 
















(FOUND IN THE 0. SO EXECUTE 


2355 
















(COMMAND POINTED TO BY R0 


2356 


















2357 


















2358 
















(AN ALREADY POSITIONED COMMAND HAS 


2359 
















(BEEN FOUND, 


2360 


011446 


010137 


001536 




3t( 


MOV 


RliSAVKEY 


(SAVE POINTER TO THE COMMAND(KEY) 


2361 
















(WHICH IS ALREADY POSITIONED 


2362 


011452 


004737 


012072 






JSR 


PCPOSK 


(GO AND POSITION THE COMMANDCKEY) 


2363 
















(POINTED TO BY R0 


2364 


01 1456 


004737 


020256 






JSR 


PCPOSCMND 


(SAVE INFO ABOUT PAST fc PRESENT COMAND 


2365 


011462 


012777 


000111 


167532 




MOV 


•111,9RKCS 


(SEEK, IDE, GO 


2366 


011470 


005046 








CLR 


-CSP) 


(ALLOW FIRST INTERRUPT 


2367 


011472 


012746 


011500 






MOV 


«4«,-CSP) 


(RETURN FOR RTI •••»»»»♦•« 


2368 


011476 


000002 








RTI 






2369 


















2370 


















2371 


01 1500 


105737 


001535 




4«: 


TSTB 


INTIFL 


(DID INTERRUPT OCCUR? 


2372 


01 1504 


001775 








BEO 


4$ 


(BR IF NOT 


2373 


01 1506 


012777 


013164 


167524 




MOV 


»inthnd,»rkvec 


(REESTABLISH INTERRUPT ADDRESS 


2374 


011514 


013700 


001536 






MOV 


SAVKEY,R0 


(RESTORE THE SAVED POINTER TO KEY 
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SEQ 0066 



2375 














'EXECUTE THE COMMAND POINTED TO BY R0 


2376 














;P0 CONTAINS THE POINTER TO THE 
















(COMMAND KEY 




011 520 


011 00 1 




EXCUTl 


MOV 


C R0 } » R 1 


SGET DRIVE NO 


2 37' 


01 1522 


042701 


177770 




B IC 


•177770fRl 








005710 






TST 


( R0 1 


;THIS COMMAND UNFINISHED? 




011530 


1 00004 






BPL 


1 $ 




2382 


0115 32 


011037 


001 1 62 




MOV 


CR3] 1 SREG0 


J GET KEY 


2 38 3 


01 1 536 


104030 






ERROR 


30 


>IF NOTi ERROR 
















!AN ATTEMPT WAS MADE TO REEXECUTE A COMMAND 


T JOR 














;THAT HAS ALREADY BEEN EXECUTED BEFORE* 


Tit 














•CON DRIVE N0» GIVEN IN ERROR MESSAGE) 


7ia7 


011 540 


0005 1 2 






BR 


ABRTl 








1 kl57 1 




IS! 


TST8 


C R0 ) 


;IS IT IN PROGRESS? 


2 389 


01 1544 










3 S 




2 3<)a 


^11 «7 


0H037 


001 162 




MOV 


CR0) 1 SREG0 


•GET KEY 


2391 


011 


1 04030 






ERROR 


30 


•IF YESr ERROR 


2 392 


















01 155 4 


000S04 










JAN ATTEMPT WAS MADE TO REEXECUTE A COMMAND 
















JTHAT IS IN PROGRESS CON DRIVE NO* GIVEN 


2395 
















2 396 
















2 397 


01 1 556 


1 05761 


001426 


3 5 ! 


- 


busycri ) 


• IS THE DRIVE BUSY? 



















7 

i 


«} 1 Sft4 
011b 




001162 




MOV 




"GET DRIVE ^ 


240i4 


01 1 5 7 


1 04002 














011572 








BR 


iBBT 


;IN Rl) Is SET* INDICATING THAT THE DRIVE 


24{52 














SUOX Anu' &n^«At«EiU in An ALilVXlX* 


2 1S93 






























•A FUNCTION ON THIS DRIVE THIS IS AN 


7 1^^ 














JUNEXCEPTED ERROR CONDITION, 


2 406 
















2 4^7 


011574 


105777 


1 67422 


45 • 




9RKCS 


(CONTROL READY SET? 




011600 


1 00 404 






8HI 


5$ 




74a9 


011 602 


004737 


021740 




JSR 


PC# GT4RG 


;GET RkCS> ER> 0S» DA 


241 .4 


01 1606 


1 04003 






ERROR 


3 


(CONTROL READY IS NOT SET, THIS IS AN 


2 411 


011610 


00046 1 






BR 


ABRT 


(UNEXPECTED ERROR CONDITION AT THIS 


2112 














(POINT OF EXECUTION^ CONTROL SHOULD 
















■3E NORMALLY READY 


7 114 


011612 


01 1002 




5 s : 


HOV 


( R0 ) f R2 




' ■ 


a 1 1 ^ 1 d 
















011616 


042702 


1 77770 




RTr 




•FORM THE ADDRESS OF THE 






006 302 










•PARAMETER LIST FOR THIS 


7d a 


m 1 7 d 


01 0204 






MOV 


R2 R4 


* COMMAND 


24 9 


01 1626 


016205 


W CIO S £ 




MOV 


P^'MMD ( P2 ) » R5 




242.5 
















2 421 


1 16 3 2 


01 1577 


167372 




MOV 


( r5 ) f QRKDA 


(GET THE FIRST ITEM FROM LIST 


2422 














(DISK ADDRES 


2423 


011636 


032777 


000100 


167352 


BIT 


»Ri^S.aRKDS 


(R/W/S RDY SET? 


2424 


01 1644 


001006 






BNE 


6S 




24?'; 


011646 


010137 


001 250 




MOV 


Rl ,SRDRV 


(GET DRIVE *, FOR TYPING SERIAL » 


2426 


01 1652 


004737 


021 740 




JSP 


PC»GT4RG 


[GET RKCS, ER, DS» DA 


2427 


011556 


104004 






ERROR 


4 


[R/W/S RDY IS NOT SET FOR THE DRIVE, 


2428 


011660 


000435 






BR 


ABRT 


[A CNON-SEEK) FUNCTION MAS SUPPOSED 


2429 














(TO BE EXECUTED ON THIS DRIVE, THIS IS 


243*3 














jAN UNEXPECTED ERROR CONDITIONS AT THIS 
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2 4 31 
















[POINT OF EXECUTION R/**/S RDY SHOULD 


2 4 32 
















(BE NORMALLY SET. 


2 4 3 3 


01 1662 


016503 


000002 




6S: 


MOV 


2CR5),R3 


(GET FUNCTION TO BE DONE 


2434 


















2 4 35 


011666 


1227ia3 


000002 






CMPB 


#2,R3 


(IS IT A WRITE FUNCTION? 


2436 


011672 


001 437 








BED 


WRFNC 


(YESf IT IS WRITE 


2437 
















[IT'S NOT A WRITE FUNCTION 


243'^ 


















2439 


011674 


016503 


000002 




NWRFNC: 


MOV 


2CR5),R3 


[GET FUNCTION TO BE DONE 


244*1 


01 1700 


052703 


000501 






BIS 


IS01f R3 


[SET SSE»IDE»GO BITS 


2441 


011704 


016577 


000004 


167312 




MOV 


4CR5),9PK<*C 


(GET WORD COUNT 


2442 


011712 


016577 


000006 


167306 




MOV 


6CR5),eRKBA 


(GET BUS ADDRESS 


2 44 3 


















2444 


011720 


004737 


020300 






JSP 


PCf FNCMND 


[SAVE INFO ABOUT PAST PRESENT COMAND 


2 445 


















2146 


011724 


010377 


167272 






MOV 


R3,9RK:S 


(SET SSE,IDE, FUNCTION, GO 


2447 


















244>< 


011730 


052710 


000200 






BIS 


iBTT7, CR0) 


(SET FLAG INDICATING FUNCTION 


2 4 49 


0117 34 


052704 


000200 






BIS 


«BIT7,R4 


(IN PROGRESS 


245*5 
















(R4 CONTAINS OFFSET TO THE COMMAND KEY 


2 451 
















((FROM 'KEY') BITS 0-3, BIT 7 IS SET 


2452 


01 1 740 


1 10461 


001426 






M0V6 


R4,BUSYCR1) 


(SET FLAG INDICATING DRIVE BUSY 


2453 


011744 


1 10437 


001534 






MOVB 


P4, INTFLG 


[SET FLAG FOR INTERUPT USE 


2 454 


011750 


0001 37 


021344 






JMP 


STATUS 




2455 


















2456 


011754 


004737 


014334 




ABRTI 


JSR 


PC.DRVABT 


[ABORT THE FUNCTION 


2457 


011760 


004737 


016446 






JSR 


PC'CHKDRV 


[GO CHECK, DRIVE ERRORS 


2t58 


01 1764 


000240 








NOP 






2459 


01 1766 


000137 


010556 




ARRTl ! 


JMP 


QMNGER 
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2460 
















2461 
















2462 


011772 


016537 


000004 


01 201 2 


WRFNC 1 


MOV 


4(R5}|i( 


2463 


013000 


016537 


000006 


01 201 4 




MOV 


6(R5)r3l 


3464 


013006 


004537 


016612 






JSR 


RSiGENBUF 


2465 


012012 


000000 






111 


.WORD 





2466 


012014 


000000 






2< 1 


,HORD 





2467 


012016 


052703 


0001 01 






BIS 


*101rR3 


2466 


012032 


013777 


012012 


167174 




MOV 


Itf RRKNC 


2469 


012030 


01 3777 


013014 


167170 




MOV 


2f f 9RKBA 


2470 


013036 


004737 


030300 






JSR 


PC, FMCMND 


247 1 
















3472 


013042 


010377 


167154 






MOV 


RSi^RKCS 


2473 


013046 


0S2710 


000200 






8IS 


*BIT7> CR0} 


2474 


012053 


053704 


000200 






BIS 


IBIT7,R4 


2475 
















2476 


012056 


110461 


001426 






MOVB 


R4,BUSy(Rn 


2477 


012063 


110437 


001534 






N0V8 


R4,INTFLG 


2478 
















2479 
















2480 


012066 


000137 


021344 






JMP 


STATUS 



>THE FUNCTION TO BE EXECUTED IS A 

{WRITE FUNCTION 

(GET » OF WORDS TO BE WRITTEN 

JOET STARTING BA OF BUFFER 

!G0 GENERATE BUFFER 

JSAVE « OF MORDS 

JSAVE STARTING BUS ADDRESS OF BUFFER 
!SET IDE AND GO BIT 
]S£T WORD COUNT 
tSET BUS ADDRESS 

;SAVG INFO ABOUT PAST i PRESENT COMAND 
;ISSUe WRITE, IDE, GO 

iset flag indicating function in 
;progress 

jset flag indicating drive busy 

jset flag for inteRupt use 

]r4 contains offset to the command key 

jCFROM 'KEY') BITS 0-3, BIT 7 IS SET 



klNOEC 


-ii«d2:rkh-f 


HACYll 


37(1006) 04-OCT 


-76 13129 PAGE 56 




tRKHF.PU 


J2.SEP-76 


08157 


EXERCISER PROGRAM 




2481 


013072 


01 1001 




posk: 


MOV 


(R0],Rl 


(INITIAL CHECKING PRIOR TO DOING 


2482 


013074 


042701 


177770 




aic 


#177770, Rl 


(POSITIONING COMMAND POINTED TO BY R0 


2483 


012100 


105761 


001426 




tstb 


BUSYCRl } 


(DRIVE BUSY? 


2484 


012104 


100004 






BPL 


It 




2485 


012106 


010137 


001162 




MOV 


Rt.lREG0 


(GET DRIVE 1 FOR WHICH 'BUSY' IS SET 


2486 


013112 


104002 






ERROR 


2 


('BUSY* FLAG FOR THE DRIVE (CONTAINED 


2487 


012114 


000470 






BR 


71 


(IN Rl) IS SET, INDICATING THAT THE DRIVE 


2488 














(IS 'BUSY' AMD ENCAGED IN AN ACTIVITY, 


2489 














(STILL AN ATTEMPT WAS MADE TO INITIATE 


249d 














(POSITIONINCN ON THIS DRIVE. THIS IS AN 


2491 














(UNEXCEPTED ERROR CONDITION. 


2492 


012116 


105777 


167100 


l»l 


TSTB 


SRKCS 


(CONTROL READY SETT 


2493 


012132 


100404 




1 


BMI 


3t 


(YES 


3494 


012124 


004737 


031740 




JSR 


PC,CT4RG 


(GET RKCS, ER, DS, OA 


3495 


012130 


104003 






ERROR 


3 


(CONTROL READY IS HOT SET. THIS IS AN 


2496 


012133 


000454 






BR 


6t 


(UNEXPECTED ERROR CONDITION AT THIS 


2497 














(POINT OF EXECUTION, CONTROL SHOULD 


2498 














(BE NORMALLY READY. 


2499 


013134 


011002 




2(1 


NOV 


(R0),R2 




2500 


013136 


000302 






SWAB 


R3 




2501 


012140 


042702 


177770 




BIC 


•177770, R2 




2502 


013144 


006302 






ASL 


R2 




2503 


012146 


016303 


002033 




MOV 


PCMND(R2),R3 


(STARTING WORD OF COMMAND TABLE 


2504 


013153 


011377 


167053 




MOV 


(R3),»RKDA 




2505 


012156 


033777 


000100 


167032 


BIT 


IRHS,»RKDS 


(R/W/S RDY SETT 


2506 


012164 


001006 






BNE 


3$ 


(YES 


2507 


012166 


010137 


001250 




MOV 


RlfSRDRV 


(GET DRIVE *, FOR TYPING SERIAL • 


2508 


012172 


004737 


021740 




JSR 


PC,GT4Ra 


(GET RKCS, ER, DS, OA 


2509 


012176 


104004 






ERROR 


4 


(R/W/S RDY IS NOT SET FOR THE DRIVE, A 


2510 


012200 


0004 31 






BR 


6S 


((POSITIONING) SEEK WAS SUPPOSED TO BE 


2511 














(BE EXECUTED ON THIS DRIVE. THIS IS 


2512 














(AN UNEXPECTED ERROR CONDITION. AT THIS 


2513 














(POINT OF EXECUTION R/W/S RDY SHOULD 


2514 














(BE NORMALLY SET. 


2515 


013202 


110261 


001436 


3$l 


MOVB 


R3, BUSYCRl) 


(SET FLAG INDICATING DRIVE BUSY 


2516 


013306 


152761 


000200 


001436 


BISB 


iBIT7, BUSYCRl) 




2517 


013214 


033710 


000010 




BIT 


IBII3, CR0) 


(IS THIS A SEEK COMMAND 


2518 


012330 


001006 






BNE 


4« 




2519 


013333 


113761 


000377 


001436 


MOVB 


»377,P0SCR1) 


(SET FLAG INDICATING, THIS DRIVE POSITtOHS 


2520 


013230 


052710 


000030 




BIS 


«BIT4, CR0) 


(SET FLAG INDICATING THIS COMMAND 


2521 


013334 


000403 






BR 


51 




3532 


013336 


052710 


000200 


4»l 


BIS 


leiT7, CR0) 


(POSITIONED. SET FLAG INDICATING 


2523 














(FUNCTION IN PROGRESS 


2534 


013343 


012777 


012304 


166770 5tl 


MOV 


«INTtSK,»RKVEC 


[SET UP RKU VECTOR 


3525 


013250 


013777 


001244 


166764 


MOV 


PPRLVL»«RKSTAT 


(PSH ON INTERRUPT 


2536 


012356 


105037 


001535 




CLRB 


IHTIFL 


(CLEAR FLAG INDICATING - INTERRUPT 


2527 


013363 


000207 






RT8 


PC 


(OCCURRED 


3528 
3529 


012264 


004737 


014334 


6lt 


JSP 


PC.DRVABI 


(ABORT THE FUNCTION 


3530 


012270 


004737 


016446 




JSR 


PCf CHKORV 


(GO CHECK. DRIVE ERRORS 


2531 


012274 


000240 






NOP 






3533 


013276 


005736 






TST 


(SP) + 


■POP THE "ETURW iUOPESS 


35?3 


B123B0 


»a0i37 


^10556 




JMF 


OMNGER 
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SEQ 0070 



2534 










;ArTER 


ISSUING 


A SEEK FOR POSITIONING, AN INTERRUPT IS ALLLOWED TO TAKE 


2515 










»»PLACE 


t THIS 


HANDLER SERVICES 


THE FIRST INTERRUPT, HHICH OCCURS AS A RESULT 


2536 










SOF THE 


SEEK BEING ACCEPTED. 




2537 


















2538 


012304 


105237 


001535 




INTISK! 


INC8 


INTIFL 


JINDICATE THAT INTERRUPT TOOK PLACE 


2539 


012310 


053766 


001244 


000002 




BIS 


PPRLVL.2CSP) 


>CPU PRIORITY TO 5 ON RETURN FROM 


254H 
















! INTERRUPT 


2541 


















2542 


012316 


004737 


020200 






JSR 


PCCHKCRDV 


;CO»iTROL READY SET? 


2543 


012322 


104005 








ERROR 


5 


rCONTROL READY NOT SET AFTER THE FIRST 


2544 
















; INTERRUPT ON INITIATING SEEK 


2545 


















2546 


012324 


032777 


020000 


166670 




BIT 


•SCP.ORKCS 


;SCP BIT SET? 


2547 


012332 


001403 








BEQ 


IS 




2548 


012334 


004737 


022130 






JSR 


PCrR04SDR 


>GET RKCS, ER, OS, OA AND DRIVE f FOR 


2549 
















JTYPING SERIAL DRIVE » 


255i» 


012340 


104012 








ERROR 


12 


JSCP SET AFTER FIRST INTERRUPT ON 


25S1 
















.•ACCEPTING SEEK. A SEEK HAS INITIATED, 


2552 
















;AS A RESULT OF WHICH (THIS) FIRST 


2553 
















INTERRUPT OCCURRED, BUT SCP SHOULD 


2554 
















JNOT BE SET AFTER THE FIRST INTERRUPT. 


2555 
















;(IT GETS SET ONLY AFTER THE SEEK 


2556 
















;IS DONE). 


2557 
















;IHIS IS THE FIRST INTERRUPT 


255fl 
















;AFTER ISSUING SEEK 


2559 


012342 


017700 


166654 




IS! 


MOV 


aRKCS> R0 




256>3 


012346 


042700 


177760 






BIC 


»177760,R0 


;CHECK THERE IS A SEEK FUNCTION 


2561 


012352 


022700 


000010 






CWP 


#10, R0 


jIN RKCS 


2562 


012356 


001403 








BEO 


2$ 




2563 


012360 


004737 


021740 






JSR 


PC,GT4RG 


;SET RKCS, ER, OS, DA 


2564 


012364 


104006 








ERROR 


6 


;RKCS DOES NOT CONTAIN 'SEEK' FUNCTION. 


2565 
















;A SEEK MAS INITIATED AS A RESULT OF WHICH 


2566 
















jtlHIS) FIRST INTERRUPT OCCURRED. RKCS 


2567 
















fSHOULD CONTAIN THE SEEK FUNCTION BITS, 


2568 
















;BUT IT DID NOT 


2559 


















257M 


012366 


f)l 7700 


166636 




2$ I 


MOV 


iaRKDA,R0 


;GET THE DRIVE i FROM RKDA 


2571 


012372 


042700 


017777 






BIC 


•17777, R0 




2572 


012376 


000241 








CLC 






2573 


012400 


006100 








ROL 


R0 




2574 


012402 


006100 








ROL 


Ra 




2575 


012404 


006100 








ROL 


R0 




2576 


012406 


006100 








ROL. 


R3 




2577 


012410 


010001 








MOV 


B3,R1 




2578 


01 2412 


105761 


001426 






TSTB 


BUSYCRl) 


JCHECK THIS DRIVE NO. WAS BUSY 


2579 


012416 


100403 








BMI 


3$ 


;0K, IF IT WAS 


25S0 


01 2420 


0101 37 


001 162 






MOV 


PI ,SREG0 


jGET DRIVE KFROM RKDA) 


258 1 


01 2424 


104007 








ERROR 


7 


J 'BUSY' FLAG FOR THE DRIVE HAS NOT SET. 


2582 
















[THE DRIVE « CIN RKDA) WHICH CAUSED (7) 


2583 
















;THIS (FIRST) INTERRUPT SHOULD HAVE BEEN 


2584 
















J 'BUSY* CSOFTWARE FLAG). NOTE WHENEVER 


2585 
















;ANY OPERATION IS INITIATED ON ANY DRIVE 


2586 
















;'8USY' FLAG FOR THAT DRIVE IS SET. 


2587 


012426 


1 16100 


001426 




3$: 


MOVB 


BUSYCRl), R0 




2588 


012432 


042700 


177630 






BIC 


S177630,R« 


SFOPM THE ADDRESS OF 


2589 


012436 


362700 


001 306 






ADD 


«KEY,R3 


;THI5 KEY 
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7592 






2591 


012442 


332710 


2592 


012446 


001003 


2593 


012450 


010137 


7594 


012454 


104010 


2595 






2596 






2597 






2598 


012456 


105761 


2599 


012462 


001003 


2600 


012464 


0131 37 


2631 


012470 


] U4010 


2602 






2603 






2604 






2605 






26(»6 






261JT 






2608 






26f»9 






2bl<» 


012472 


H05777 


261 1 


012476 


100044 


2612 






261 3 


012500 


032737 


2h! 4 


012506 


001012 


2615 


012510 


342737 


2bl6 


012516 


001026 


261 7 


012520 


052737 


2618 






2619 


012526 


00 47 37 


262^ 






2621 


1512532 


10401 1 


2622 






2523 






2624 






2625 


012534 


042710 


2626 


012540 


105061 


2627 


012544 


185(^61 


2628 






7629 


012550 


0i)4737 


2630 


012554 


0527 13 


2631 


012560 


105261 


2532 


012564 


126127 


26 33 


012572 


003406 


2634 






2635 


012574 


004737 


2636 


012600 


005061 


2637 


012604 


005037 


2638 






2539 


012610 


000002 



000320 
001162 



301436 
301162 



166524 

300040 001474 
003040 001474 
000040 301474 
322130 



000020 
301426 
301436 

015714 
010000 
001446 

001446 000003 



BIT 
BNE 
MOV 
ERROR 



TSTB 
BNE 
MOV 
ERROR 



014334 
301446 
001474 



TST 
BPL 

BIT 
SNE 
BIC 
BNE 
BIS 

JSR 



BIC 

CLKB 

CLRB 

JSR 
BIS 

incb 

CMPB 
BLE 

JSR 
CLR 
CLP 



»BIT4, (R0) 
4S 

R1,3REG0 
10 



POS(Rl) 
5$ 

R1,SREG0 



ORKCS 
8S 

l'8IT5,eRC0DE 

6S 

#BIT5,ERC0DE 
7S 

•BITS.ERCODE 

PC,RG4SDR 

11 



*RIT4, (R0) 

8I)SY(R1) 

POStRl) 

PC'CLRERR 
»BIT12, CR0) 
RETRYCRl) 
PETRY{R1),I3 
8$ 

PCDRVABT 
PETPY(R1 ) 
ERCODE 



SIS THE KEY ACTIVE FOR 'POSITIONING*? 
JGET DRIVE NUMBER 

JPOSITIONING FLAG (IN THE KEY) IS NOT 
JSET FOR THE INTERRUPTING DRIVE (GIVEN 
;IN EROR MCSAGE) 

!IS THE 'POSITIONING' FLAG SET? 

!GET DRIVE i FROM RKDA 
JTHIS INTERRUPT IS SUPPOSED TO BE AS 
JA RESULT OF INITIATING A (POSITIONING) 
;SEEK. WHENEVER A SEEK IS INITIATED 
!T0 POSITION THE HEADS THE POSITIONING 
JFLAG (POS») IS SET. OCCURANCE OF THIS 
JERROR INDICATED THAT THE DRIVE # 
jCFROM RKDA)GIVING THIS INTERRUPT DID 
JNOT HAVE ITS POSITIONING FLAG SET. 

fANY ERROR? 
;N0 - RETURN 



)get rkcs, er, os, da and drive i for 

jtyping serial drive » 

;bit 15, 'err' set in rkkc5 after first 

•.interrupt - which occurred after a 

ipositioning seek was initiated. rker 

(will contain error bit/s 

(clear 'positioning' bit 

(clear 'busy' flag 

(clear 'positioning' flag 

(clear the error 
(indicate high priority on 
(Increment retry count 
(done retries? 

(NO 

(ABORT THE FUNCTION 
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SEO 0072 



2640 
















26 42 








2643 


012612 


004737 


020200 


2644 


012616 


104013 




2645 








2646 








2647 


012620 


01 7746 


166372 


2648 


01 2624 


004737 


022076 


2649 








2650 


012630 


01 2601 




2651 


012632 


105761 


001426 




01 2636 


1 00403 




2653 


012640 


004737 


021740 


2654 


012644 


104014 






















































01 2646 


1161 00 


00 1426 




012652 


042700 


1 77600 




012656 


062700 


001 306 


9fi*4 




032710 


000020 




1 2666 


00 1 003 




2666 






00 1162 


2667 


01 2674 


104010 




2668 








2669 










01 2676 


105761 


001 436 


2671 


012702 


00 1 00 3 




2672 


01 2704 


010137 


001162 




012710 


1 040 1 




2674 








2675 








2676 








2677 








2678 








2679 








2680 


012712 


0047 37 


016446 


268 1 


012716 


000501 












2683 








2684 








2685 


01 2720 


017777 


166272 


2686 








2687 


012726 


032777 


000100 


2688 


012734 


00 1 005 




2689 


012736 


004737 


021740 


2690 


012742 


010137 


001250 


2691 


012746 


104015 




2692 








2693 


012750 


032777 


001000 


2694 


012756 


001007 




2695 









JTHIS ROUTINE IS ENTERED UPON COMPLETION 
;0F A SEEK OPERATION UNDER INTERRUPT MODE 



JSR 
ERROR 



MOV 
JSR 

MOV 

ISTB 

BMI 

JSR 

ERROR 



HOVB 

8IC 

ADD 

BIT 

BNE 

MOV 

ERROR 



TSTB 
BNE 
MOV 
ERROR 



JSR 
BR 



MOV 

BIT 
BNE 
JSR 
WOV 
ERROR 

BIT 

BNE 



PCCHKCRDY 
13 



(»RKDS,-CSP) 
PC»CROTLF 

(SP)+»R1 
8USY(R1) 
2S 

PC»GT4RG 
14 



Busy(Rn,R0 

»177600,R0 
tKeY»R0 
«BIT4, (R03 
3S 

Rl>$REG0 
10 



POSCRl ) 
4S 

Ri,SREG0 
10 



PCrCHKORV 
PFTERR 



<>RKDS>«RKDA 

IR<<S>iaRKOS 
5$ 

PCrGT4RG 
Rl.SRDRV 
15 

*SIN«tRKDS 
PSINER 



(CONTROL READY SET7 
fCONTROL RDY NOT SETi 
;DONE INTERRUPTl 



AFTER A SEEK 



;GET DRIVE I THAT INTERRUPTED 
JROTATE BITS 15,14,13 TO POSITION 

;0,i,2 

JGET THE ROTATED BITS (DRIVE ID BITS) 
fCHECK THAT DRIVE WAS BUSY 



j'BUSY' FLAG FOR THE INTERRUPTING DRIVE 
;(RKDS) WAS NOT SET. DRIVE « (15,14,13 - F 
;INTEPRUPTED AFTER SEEK WAS COMPLETE, BUT 
J'BUSY' FLAG CORRSPONDING TO THAI DRIVE 
;WAS CLEAR, IF THE CORRECT DRIVE HAS 
;INTERRUPTING 'BUSY' FLAG SHOULD HAVE 
JBEEN SET. 

;FORM THE ADDRESS OF THE 
IKEY 

JCHECK THAT POSITION BIT WAS SET 
!GET DRIVE NUMBER 

fPOSITIONING FLAG (IN KEY) IS NOT SET 
;SET FOR INTERRUPTING DRIVE (GIVEN IN EROR 
;MESAGE) 

;CHECK POSITIONING FLAG WAS SET 



; 'POSITIONING' FLAG WAS CLEAR, WHEN 
;DOING A (POSITIONING) SEEK, THE FLAG 
S'POS*' IS SET TO INDICATE THAT DRIVE 
;IS POSITIONING HEADS (SEEKING). THIS 
;EBROR INDICATES THAT FOR THE INTERRUPTING 
{DRIVE (RKDS) POSITIONING FLAG WAS 
;NOT SET, 

iGO, CHECK FOR DRV ERORS (DPL, DRU , DRY, WPS } 
;IF THERE IS A DRV EROR, RETUPN HERE 
;THE DRIVE HAS BEEN DESELECTED, ALL 
JFURTHER COMANDS ON THAT DRIVE ABORTED 
;RETURRN HERE IF NO DRIVE ERRORS 
;GET THE DRIVE » FROM DRIVE ID BITS 
;IN RKDS AND ADDRESS THE DRIVE 
;R/W/S RDY SETT 
! YES 

;GET RKCS,ER,DS,DA 

JGET DRIVE «, FOR TYPING SERIAL I 

;R/W/S ROY NOT SET FOR INTERRUPTING 

;DRIVE (RKDS), AFTER SEEK HAS COMPLETED. 

;'SIN' ERROR? 

JYES, BRANCH 
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2696 
2697 
2698 
2699 
2700 



012760 
012766 



012770 
012774 



032777 
001060 



105061 
000207 



040000 166234 



BIT 
BNE 



CLRB 
RTS 



«HE,9RKCS ;ANY HARD ERROR? 

PORKER ;YES 

;N0 ERRORS DETECTED ON POSITIONING 
BUSY(Rl) ;CLEAR BUSY FLAG FOR THIS DRIVE 
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5£Q 0074 



2701 












JTHERE WAS A 'SIN' ERROR ON 


2702 












;D0ING POSITIONING (SEEK) 




01 2776 


0047 37 


021740 PSINEIRS 


JSR 


PC r GT4RG 




2704 


01 3002 


010137 


001 2S0 


MOV 


RlrSRDRV 


;GET DRIVE if FOR TYPING SERIAL i 


2705 


01 3006 


104016 




ERROR 


16 


J'SIN' ON DOING CP05ITI0NINGJ SEEK 


2706 


013010 


042710 


000020 


BIC 


»8IT4, CR0) 


JCLEAR 'POSIIIONING' BIT 




013014 


1 05061 


001 4 36 


CLRB 


POSCRl ) 


SCLEAR POSITTIONING FLAG 


2708 


01 3020 


1 0506 1 


001 426 


CLRB 


BUSYCHl ) 


;CLE*R BUSY FLAG FOR THIS DRIVE 


2709 


01 3024 


004737 


016060 


JSR 


PCrCLRSIN 


;CLEAR 'SIN" ERROR 


2710 












rKEEP COUNT OF 'SIN' ERRORS, IF MORE 


27 1 1 


01 3030 


004737 


016172 


JSR 


PCi SINCNT 


27 1 2 












;THAN 'MAX' DESELECT THE DRIVE 


2713 


0130 34 


000432 




BR 


PFTERR 


jretun here if C0UNT»MAX 


2 7 1 4 














2715 












;RETURN here if count LESS THAN MAX 


27l6 


01 3036 


J05261 


001446 psrtry: 


INCB 


retryCri ) 


;INCRMNT REETRY count 


271 7 


01 3042 


105061 


001436 


clrb 


POSCRl) 


;CLEAR POSITION FLAG 


2 7 ] 8 


1 3046 


1 0506 1 


001420 


clpb 


BUSY(R1 ) 


JCLEAR BUSY FLAG 


27^9 


01 3052 


1 22761 


000003 001446 


CMPB 


( 3 , RETR Y( R 1 ) 


;DONE ALL RETRIES? 




01 3060 


001 403 




beq 


1 S 


• YES 








1 0000 


bis 


#BIT12#CR0) 


JSET HI PRIORITY ON RETRY 


27?2 


01 3066 


000207 




RTS 


PC 


J RETURN 


2 7 2 3 


3070 


c -» 7 1 .a 






SI 34232 CR0) 


JINDfATE COMMAND ABORTED 


2 7 25 


01 3074 


105061 


001 446 


CLRB 


RETRYC Rl ) 


ICLEAR retry count for FUTURE USE 


2726 


0131 00 


010102 




MOV 


Rl » R2 




2727 


013102 


006302 




ASL 


R2 




2 7 28 


01 3104 


005262 


001 672 


INC 


AB0RTCP2) 


! INCREMENT ABORT COUNT 


2 7 2? 


013110 


0427 1 


1 0000 


BIC 


• 8IT12» CR0) 


;CLR HI PRIORITY BIT 


27 33 


013114 


I 04421 


002165 


TYPMSG 


, MSGl 


SPRINT ABORT MESSAGE 


27 31 


01 3 1 20 


000207 




RTS 


PC 




27 32 














2733 


013122 


0427 1 


010000 pfterr: 


BIC 


IBITI 2, CrB) 


•CLEAR HI PRIORITY BIT IF SET 


27 34 


013126 


000207 




RTS 


PC 




27 35 














2736 


01 31 30 


004737 


021740 porker: 


JSR 


PC, GT4RG 


;IF ANY ERROR BIT IN SKCS SET 


2737 


013134 


010137 


001250 


MOV 


Rl rSRORV 


;GET DRIVE *, FOR TYPING SERIAL i 


27 33 


013140 


104017 




ERROR 


17 


SON DOING POSITIONING CSEEK) 


2739 












JENTER HERE 


2740 














2741 


01 3142 


004737 


015714 


JSR 


PCCLRERR 


;G0 CLEAR THE HARD ERROR 


2742 


013146 


042710 


000020 


BIC 


»BIT4, Cr0} 


;CLEAR POSITIONING BIT IN KEY 


2743 


01 3152 


105061 


001436 


CLRb 


POSCRl) 


JCLEAR POSITIONING FLAG FOR THIS DRIVE 


2744 


013156 


105061 


001426 


ClRB 


BUSYCRl ) 


;CLERR BUSY FLAG FOR THIS DRIVE 


2745 


013162 


000725 




BR 


PSRTRY 
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2746 
















;ENTER THIS ROUTINE WHEN AN INTERRUPT 


2747 
















JOCCURS. NOTE THERE IS ONE OTHER 


2748 
















JINIERRUPT ROUTINE- 'INTISK' 


2749 


01 3164 


105037 


001534 




INthhd: 


CLBR 


INTFLG 


»CLEAR FLAG TO INDICATE THAT 


2750 
















;AN INTERRUPT OCCURED. 


2 751 


013170 


013766 


001244 


000002 




MOV 


PPRLVL.2CSP) 


JCPU PRIORITY TO 5 ON RTI 


2752 


013176 


004737 


020200 






JSR 


PCrCHKCRDY 


JCONTROL READY SET? 


2753 


013202 


104024 








ERROR 


24 


JCONTROL RDY CLEAR AFTER INTRUPT ON COMPLETION 


2754 
















;0F FUNCTION, IT SHOULD BE SET 


2755 


013204 


032777 


020000 


166010 


1$: 


BIT 


«SCP»?RKCS 


;SCP SET? SEARCH COMPLETE? 


2756 


01 3212 


001 403 








BEQ 


2$ 




2757 


013214 


0H4737 


01261 2 






JSR 


PCSKCMP 


;G0 TO SEEK COMPLETE ROUTINE 


2758 


01 3220 


000002 








RTI 






2759 


013222 


01 7746 


166002 




2S: 


MOV 


JRKDA, -(SP) 


;GET THE DRIVE » TO ^HICH 


2760 
















JTHE COMMAND WAS ISSUED UNDER 


2761 
















; INTERRUPT MODE 


2762 


013226 


004737 


022076 






JSR 


PCrCROTLF 


{ROTATE BITS 15,14,13 TO POSITION 


2763 
















;0>l,2 


2 764 


013232 


012605 








MOV 


CSP)+,R5 


;POP OFF THE DRIVE » FROM THE STACK 


2765 


013234 


1 05765 


001 426 






TSTB 


BUSYCRS) 


;CHECK THAT DRIVE WAS BUSY 


2766 


013240 


1.10403 








BMI 


3S 




2 767 


013242 


310537 


01^1162 






MOV 


R5f SREG0 




2768 


013246 


1 04007 








ERROR 


7 


S'BUSY' FLAG FOR THE INTERUPTING DRIVE 


2769 
















tUkS NOT SET. WHENEVER ANY ACTIVITY 


2770 
















;1S INITIATED ON A DRIVE, THE CSOFTWARE) 


2/71 
















!*BUSY* FLAG IS SET TO INDICATE THAT 


2772 
















JDRIVE IS BUSY DOING SOMETHING, 


2773 
















JOCCURANCE OF THIS ERROR INDICATES 


2774 
















;THAT THE 'BUSY' FLAG FOR THE INTERRUPTING 


7775 
















;DRIVE CRKDA) IS CLEARl 


2776 


013250 


105065 


001436 




3S! 


CLRB 


POSCRS) 


JCLEAR THE POSITION FLAG 


2777 


013254 


1 16500 


001426 






MOVB 


BUSYCR5),R0 


;GET THE ADDRESS OF THE 


2778 


013260 


042700 


177760 






PIC 


» 177760, R0 


SCOMMAND KEY 


2779 


013264 


062700 


001306 






ADD 


iKEY»R0 




27B0 


01 3270 


032710 


000010 






BIT 


iBIT3r CR0) 


SCHECK IT'S NOT A SEEK FUNCTION 


7791 


01 3274 


001401 








BEQ 


4$ 




2782 


013276 


I 04020 








ERROR 


20 


; CSOFTWARE) FLAG FOR THE INTERRUPTING 


2793 
















fORIVE CRKDA) INDICATES THAT A SEEK 


2784 
















»FUNCIION WAS BEING EXECUTED ON THE 


2785 
















JDRIVE, IF THAT'S THE CASE, SCP BIT SHOULD 


2786 
















jHAVE SET ON SEEK DONE INTRUPT, BUT IT 


2797 
















;WAS NOT. NOTE, HERE THERE IS A CHANGE 


2788 
















;0F MULTIPLE ERRORS OR ERROR 


2799 
















; MISINTERPRETATION 


2790 


013300 


105710 






4S: 


TSTB 


CRB) 


rCHECK THAT FUNCTION IN 


2791 


013302 


100403 








BMI 


5S 


; PROGRESS BIT WAS SET 


2792 


P13304 


010537 


001162 






MOV 


R5,SREG0 


JGET DRIVE NUMBER 


2793 


013310 


104031 








ERROR 


31 


;IF NOT, ERROR 


2794 
















.■•FUNCTION IN PROGRESS' FLAG CIN THE KEY) 


2795 
















JWAS NOT SET FOR THE INTERRUPTING DRIVE. 


2796 
















;IF THIS DRIVE MAS BUSY DOING THE 


2797 
















JFUNCTION, THE ABOVE FLAG SHOULD BE SET. 


2798 


013312 


01 1 002 






5St 


HOV 


CR0),R2 


;CHECK THAT THE INTERRUPTING 


2799 


013314 


042702 


177770 






BIC 


#177770, R2 


;DRIVE CIN RKOA) IS THE SAME AS 


2800 


013320 


320502 








CMP 


R5,R2 


;THE DRIVE IN THE KEY 


2801 


013322 


001405 








BEQ 


6$ 
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SEP ?07S 



2802 


013324 


010537 


001 162 






MOV 


RSrIRESe 


IGET EXPCTD DRIVE NO. 


2803 


013330 


010237 


001 1 64 






MOV 


R2>iRESl 


;GET DRIVE NO. RECVD 


2804 


013334 


104032 








ERROR 


32 


JUNEXPECTED DRIVE NO. INTERRUPTED 


2805 


013336 


006303 






611 


ASL 


R2 




2806 


013340 


01 1003 








MOV 


(R0)>R3 




2807 


013342 


010037 


001536 






MOV 


R0f SAVKEY 




2808 


013346 


000303 








SWAB 


R} 




2809 


013350 


042703 


177770 






BIC 


#177770, R3 


(GET POSITION OF THE PARAMETER 


2810 


01 3354 


006303 








ASl 


R3 


ILIST FROM THE KEY 


281 1 


013356 


017704 


165640 






MOV 


8RKCS>R4 




2812 


01 3362 


042704 


177761 






BIC 


*177761rR4 


JCLEAR ALL BUT FUNCTION CODE 


281 3 


013366 


016305 


002032 






MOV 


PCMND(R3} ,RS 


jCHECK that the FUNCTION IN 


281 4 
















IRKCS AND THE KEY ARE SAME. 


2815 


013372 


126504 


000002 






CMPB 


2(RS) «R4 




281 6 


















2917 


013376 


001406 








BED 


7( 


;IF NOT, ERROR 


281 8 


01 3400 


016537 


000002 


001162 




MOV 


2(R5)>$REG0 


JGET EXPcTD FUNCTION CODE IN RKCS 


2819 


013406 


010437 


001164 






MOV 


R4.$RES1 


;GEI CODE RECVO 


2820 


013412 


104033 








ERROR 


33 


JFUNCTION CODE THAT IS IN RKCS AFTER THIS 


2921 
















J INTERRUPT OCCUREb IS NOT THE EXPECTED ONS 


2922 


013414 


042710 


000200 




7tl 


BIC 


«BIT7, (R0) 


;CLEAR 'FUNCTION IN PROGRESS* BIT 


2823 


01 3420 


142761 


000200 


001426 




BICB 


»BIT7,BUSy(Rl 3 


;CLEAR BUSY FLAG FOR THIS DRIVE 


2824 


013426 


004737 


016446 






JSR 


PCCHKORV 


(CHECK FOR DRIVE ERRORS 


2925 


013432 


000002 








RTI 




;IF THERr HAS ANY DRIVE EROR 


2826 
















JDESELECT THE DRIVE AND EXIT 


2827 
















>IF NO ERROR, RETURN HERE 


2838 


013434 


032777 


001000 


1655S4 




BIT 


*SIN>0RKDS 


ISIN ERROR? 


2829 


013442 


001426 








BEQ 


1 0$ 




28 30 


01 3444 


004737 


0221 30 






JSR 


PC, RG4SDR 


;GET RKCS, ER, DS, DA AND DRIVE t FOR 


2831 
















ITYPING SERIAL DRIVE • 


28 32 


01 3450 


104016 








ERROR 


16 


;5IN ERROR 


2833 


013452 


004737 


016060 






JSR 


PCCLRSIN 




3834 


01 3456 


004737 


016172 






JSR 


PCSINCNT 


{HELP COUNT OF SIN'S, IF MORE 


2835 
















JTHAN MAXM ALLOWABLE, DESELECT THE DRIVE 


2836 


013462 


000002 








RTI 




{RETURN HERE IF COUNTxHAX 


2837 
















(RETURN HERE IF LESS THAN MAX 


2838 


013464 


105361 


001446 






INCB 


RETRYCRl) 




2939 


013470 


122761 


000003 


001446 




CMPB 


iiiRETRYCRl) 




2840 


013476 


001405 








BEQ 


8$ 




3841 


013500 


052710 


010000 






BIS 


f BIT12f (R0) 




2842 


013504 


042710 


000020 






BIC 


*BIT4> (R0) 




2843 


013510 


000002 








RTI 






2844 


















2845 


013512 


004737 


01 4334 




8$l 


JSR 


PC, DRVABT 


(ABORT THIS FUNCTION 


2846 


013516 


000003 






9$i 


RTI 






2947 


















2848 


013520 


032777 


040000 


165474 


10« 1 


BIT 


*HE,»RKCS 


(HARD ERROR? 


2849 


013526 


001076 








BNE 


HROERR 




2850 


013530 


033777 


100000 


165464 




BIT 


»ERR,»RKCS 


(SOFT ERROR? 


2851 


013536 


001003 








BNE 


SFTERR 


(YES 


2852 


013540 


00013? 


014206 






JMP 


NOEROR 


(NO 
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7853 
2954 
2855 
2856 
2957 
2859 
2859 
2860 
3861 
2962 
2863 
2964 
2865 
2866 
2967 
2868 
2869 
2870 
2871 
2872 
2873 
2974 
2875 
2876 
2977 
2878 
2979 
2980 
2881 
2992 
2883 
2894 
2885 
2886 
2987 
2888 
2899 
2890 
2891 
2892 



(THERE WAS A SOFT ERROR 



013544 


032777 


000001 


165446 


SFTEPPI 


BIT 


• i>ICE,|lRKER 


(WCE? 


013552 


001417 








BEQ 


11 




013554 


032737 


000001 


001474 




BIT 


*BIT0,ERCOOe 


(ALREADY WORKING ON A WC ERROR? 


013562 


001054 








BNE 


3S 


(YES - IGNORE THIS ONE 


B13564 


042737 


000001 


001474 




BIC 


•BIT0,ERCODE 


(ANY OTHER ERROR? 


013572 


001052 








BNE 


4* 


(YES - ABORT THIS FUNCTION 


013574 


052737 


000001 


001474 




BIS 


iaiT0,ERCOOE 


(SET THE WC ERROR BIT 


013602 


005263 


001633 






INC 


HCECN(R2) 


(INCREMENT WCE COUNT FOR 


013606 


104421 


003070 






TYPMSG 


,MSG2 


(THIS DRIVE 


013612 


032777 


000003 


165400 


lt( 


BIT 


«CSe,fRKER 


(C8E7 


013620 


001417 








BEQ 


21 




013622 


032737 


000003 


001474 




BIT 


tSITliERCODE 


(ALREADY WORKING ON A CS ERROR? 


013630 


001031 








BNE 


3$ 


(YES - IGNORE THIS ONE 


013633 


042737 


000002 


001474 




BIC 


IIBIT1,ERC0DE 


(ANY OTHER ERROR? 


013640 


001027 








BNE 


4t 


(YES • ABORT THIS FUNCTION 


013642 


052737 


000003 


001474 




BIS 


«BIT1,ERC0DE 


(SET THE C8 ERROR BIT 


013650 


005262 


001653 






INC 


CSECN(R2} 


(INCREMENT CSE COUNT FOR THIS DRIVE 


013654 


104431 


002076 






TYPMSG 


,MSG3 




013660 


104421 


002120 




2t: 


TYPM5G 


,MSG5 




013664 


004737 


031644 






JSR 


PCTYPFN 


(GO TYPE OUT THE FUNCTION THAI GAVE ERROR 


013670 


004737 


021772 






JSP 


PCCETINF 




013674 


004737 


022134 






JSR 


PCCTSDRV 


(SAVE DRIVE *, FOR TYPING SERIAL i 


013700 


104021 








ERROR 


21 


(SOFT ERROR ON PERFORMING A DATA 
















(TRANSFER RKDA PRINTED OUT IN ERROR 
















(MESSAGE IS BROKEN DOWN INTO DRVE 1, 
















(CYL « SEC », SUR 1 


013702 


022704 


000004 






CMP 


«4,R4 


(WAS IT A READ FUNCTION? 


013706 


001002 








BNE 


3$ 




013710 


004737 


017016 






JSR 


PCDATCHK 


(GO CHECK THE DATA READ 


013714 


000137 


014066 




3I( 


JMP 


CMNERR 




013720 


000137 


014134 




4I( 


JMP 


CMRABT 
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299 3 










2994 










2895 










2996 










'I 




32777 


1 0000 




2398 


_ 

0137 3 2 


00 1421 






289 9 












0137 34 


0327 37 


0^0004 


001474 






001051 






2902 


013744 


J f I 




owl** / ^ 


2903 


013752 


00 1064 






2904 


013754 


052737 


0lf7000 4 




29i(»5 










2906 


01 3762 


005262 


00 1 O02 




290? 


01 3766 


005262 


001 562 




2908 










2909 


013772 


1 0442 1 


002td62 




29 1 3 










291 t 


013776 


032777 


__ 

10 77 40 


16521 4 


291 2 


01 4004 


00 1 41 7 






2913 










291 4 


C1 1 A 

D 1 4 vdd 






Ola 1 ATA 


29l5 


014014 


001 024 
















2917 


1 4024 


001037 






291 8 


1 4026 


0527 37 


000(^1 


_ 

001 474 


291 9 










292«^ 


1 4034 


005262 


00 1562 




292 1 


1 4040 


104421 


(XOk'i f nA 
1 P9 




2922 










2*?2 3 


1 4044 


104421 


0021 20 




2924 


01 4050 


act AT 7 "7 


02 1644 














2926 










292? 


1 4ob 4 


_ 

0047 3 7 








n 1 A Ji&M 


0^47 3 7 


0221 34 




2^2' 


at A'JK*A 


1 fit Afl 7 9 


















10 1 *ivOO 


_ , 


00 14^6 




2932 




-1227 61 


000003 


00 14 46 


293 3 


0141 00 


txOi 1 A 1 1 






29 34 












l4 1 A 1 a? 

•0 I *t i tf £ 


0527 7 7 


C1 1 HiJiau 

cll Olff IC;I0 






0141 10 


342777 


000020 


1 


7 y 3 7 




0047 37 


015714 






ffll 41 97 


00^002 






2939 










29 4 


014124 


005037 


001 474 




29*1 


014130 


104421 


002532 




2942 


014134 


004737 


014334 




2943 


014140 


032777 


010000 


165052 


2944 


014146 


001416 






2945 


014150 


104416 






2946 


014152 


010137 


0451 502 




2947 


014156 


000241 






2948 


014160 


006037 


001502 





HRDERR! 


BIT 


ISKE>aRKER 




BEQ 


1$ 




BIT 


*BIT2<eRC0DE 




BNE 


c^nebr 




BIC 


#BIT2rERC00E 






CMNABT 




BIS 


# 9IT2 # ERCODE 




INC 


SKCCNCR2) 




INC 


HECNCR2) 




TVP«5G 


»MSG1 


1 S I 


BIT 


il67740# 0RKER 




BEQ 


2S 




BIT 


»BIT3, ERCODE 




o t£ 


-^mnerr 






isiT'f ERCOCE 




BNF 


CMNABT 




BIS 


»BIT3, ERCODE 




INC 


HECN { r2 } 




TYPMSG 


rMSG4 


2S I 


TYPMSG 


f MSGS 




J5R 


PC f T YPFN 




JSR 


PCfGETIHF 




JSR 


PC» GTSdRV 




ERROR 


22 


cmmerp ! 


INCB 


RETBYtRl 5 




cmpb 


#3» RETRYC Rl) 




BEQ 


CMIJABT 




BIS 


«BIT12,»SRVKEY 




BIC 


»6IT4,iaSAVKEY 




JSR 


PC.CLREPR 




RTI 




CMNABT! 


CLP 


ERCODE 




TYPMSG 


,MSG27 




JSR 


RC'DRVABT 




BIT 


«ske»»rkep 




BEQ 


3S 




CON. RESET 




MOV 


Rl iQORV 




Ct/C 






ROR 


QDRV 



;IF THERE WAS A HARD 
;ERR0R DURING THE DATA 
J TRANSFER ENTER HERE 

;SKE? 



; ALREADY WORKING ON A SK ERROR? 

;YES - IGNORE THIS ONE 

{ANY OTHER ERROR? 

JYES - ABORT THIS FUNCTION 

JSET THE SK ERROR BIT 

INCREMENT COUNT FOR SKE 
JON THIS DRIVE 



;ANY he BESIDES SKE? 



rALREADY WORKING ON A HE ERROR? 

fYES - IGNORE THIS ONE 

JAKY OTHER ERROR? 

rYES - ABORT THIS FUNCTION 

;SET THE HE ERROR BIT 

(INCREMENT HE COUNT FOP 
;THIS DRIVE 

SPRINT 'ON DOING' 

;G0 PRINT OUT THE FUNCTION 

;WHICH GAVE THIS ERROR 



JSaVE drive »» FOR TYPING SERIAL » 
;HARD ERROR ON DqInG DATA XFER 

; INCREMENT RETRY COUNT 

>3 TRIES IN ALL? 

jYESf ABORT THIS FUNCTION 

JINDICATE HIGH PRIORITY ON RETRY 
JCLEAR 'POSITIONING HEADS*, IF SET 
JCLEAR THIS ERROR 



SCLEAR ERROR CODE 

J ABORT THE FUNCTION 

JSEEK ERROR? 

;N0 

JRESET THE CONTROLLER 

iSET DRIVE NUMBER 

ICLEAR THE 'C BIT 

JLFFT JUSTIFY DRIVE NUMBER 
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294^ 


014164 


006037 


001502 




ROR QDRV 


JLEFT JUSTIFY DRIVE NUMBER 


2950 


014170 


006037 


001502 




ROR QDRV 


;LEFT JUSTIFY DRIVE NUMBER 


2951 


014174 


00')037 


001502 




ROR QDRV 


SLEFT JUSTIFY DRIVE NUMBER 


2952 


014200 


104420 






DRV. RESET 


;RESET THE DRIVE 


2953 


014202 


104416 






CON. RESET 


! RESET THE CONTROLLER 


2954 


014204 


000002 




3S: 


RTI 


!TH:S DATA TRANSFER 
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SCO 00Be 



2955 
















;IF THERE WAS NO HARD OR 


2956 
















;SOFT ERROR ON DATA TRANSFER 


2957 
















; ENTER HERE 


2958 


014206 


105761 


001 44b 




NOEROPt 


TSTB 


RETRYCRl ) 




2959 


014212 


001406 








BEO 


IS 




2960 


014214 


104421 


002604 






TYPMSG 


f MSG28 




2961 


014220 


1 16146 


001446 






MOVB 


RETRYCR1)»-CSPJ 




2962 


014224 


104403 








TYPOS 






2963 


014226 


002 








.BYTE 


2 




2964 


014227 


000 








.BYTE 







2965 


















2966 


014230 


005037 


001474 




1$: 


CtR 


ERCODE 




2967 


014234 


105061 


001446 






CLRB 


RCIRyCRl ) 




2968 


014240 


042777 


010000 


165270 




BiC 


*BiT12i»SAVkEY 


;C[,EAR PRIORITY BiT IF SET 


2969 


014246 


004737 


02071 4 






JSR 


PCSTATSTC 


jGO, COLLECT STATISTICS ON THIS 


2970 
















{DATA TRANSFER 


2971 


















2972 


014252 


022704 


000004 






CMP 


*4,R4 


SWAS IT A 'READ' FUNCTION? 


2973 


014256 


001 002 








BNE 


2t 




2974 


014260 


004737 


017016 






JSR 


PCjDATCHK 


"IF II WAS 'READ'j check THE DATA 


2975 


















2976 


















2977 


















2978 


014264 


022704 


000002 




2$l 


CMP 


• 2>r4 


;WAS IT A 'WRITE' FUNCTION? 


2979 


014270 


001011 








BNE 


3$ 




2980 


014272 


032777 


000040 


165236 




BIT 


«8IT5f ASAVKEY 


;IS 'WRT CHK' TO FOLLOW THIS 


29S1 


014300 


001412 








BEQ 


4S 


;'WRT' FUNCTION? 


2982 


014302 


052703 


100000 






BIS 


#BIT15«R3 


;SET FLAG BIT TO INDICATE 


29S3 
















JTHAI WRITE CHECK SHOULD 


29P4 
















tFOLLOW THIS WRITE 


29R5 


01 4306 


010337 


001456 






MOV 


R3« WCFLG 


;SET UP WC FLAG TO INDICATE 


29P6 
















JTHE ABOVE, THE LOWER BYTE 


2987 
















SCONTAINS THE POINTER TO THE 


2988 
















;COHMAND LISTj WHICH WILL 


2989 
















(BE USEOf FOR DOING WRITE CHECK 


2990 


014312 


000407 








BR 


SS 


}1F WRITE CHECK IS TO BE DONE, DONT 


2991 
















jSET BIT 15 OF THE KEY TILL WRT CHK 


2992 
















>IS DONE 


2993 


















2994 


014314 


022704 


000006 




3$: 


CMP 


»6,r4 


!WRT CHK FUNCTION? 


2995 


014320 


001002 








BNE 


4$ 




2996 


014322 


005037 


001456 






CliR 


WCFLO 


SCLEAR WR CHK FLAG 


2997 


















2998 


014326 


052710 


100000 




4$: 


BIS 


»BIT15,CP0) 


JSET FLAG TO INDICATE THIS 


2999 


014332 


000002 






5$: 


RTI 




JFUNcnON IS COMPLETED 
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3000 












(ABORT THE FUNCTION ON DRIVE POINTED TO 


3001 












SCLEAR ASSOCIATED FLAGS 


3002 












)DROP THE DRIVE IF MORE THAN 8. ABORTS 


3003 














3004 


014334 


010246 


drvabt: 


MOV 


R2,-CSP) 


iSAVE R2 


3005 


014336 


105061 


001446 


CLPB 


RETRY(Rn 




3006 


014342 


052710 


104000 


BIS 


tl04000f (P0) 


(INDICATE THAI FUNCTION IS ABORTED 


3007 


014346 


042710 


010000 


BIC 


IBIT12.(R03 


(CLEAR HIGH PRIORITY BIT IF SET 


3008 


014352 


010102 




MOV 


R1.R2 




35)09 


014354 


006302 




ASL 


R2 




3010 


014356 


005262 


001672 


INC 


AB0RT(R2) 




301 1 


014362 


026227 


001672 000010 


CMP 


ABORT(R2)>«10 




3012 


014370 


003402 




BLE 


1$ 




3013 


014372 


000137 


016220 


JMP 


DSELCT 


(DROP THE DRIVE 


3014 


014376 


012602 


is; 


MOV 


(SP)+»B2 


(RESTORE R2 


3015 


014400 


104401 


002165 


TYPE 


•MSG10 


(TYPE "ABORTED" 


3016 


014404 


000207 




RTS 


PC 


[RETURN 
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301 7 










[THIS ROUTINE 


GENERATES THE 8 


COMMAND REQUESTS AND PUT THEM IN THE QUEUE, THE 


331 8 










;FOLLOWIHG PARAMETERS ARE GENERATED RANDOMLY! 


3?! 9 










; 1 . 


DRIVE NUMBER ON WHICH THE 


COMMAND WILL BE PERFORMED. 


3iJ20 










;2. 


FUNCTION 


TO BE PERFORMED. 




3021 










;3. 


DISK ADDRESS - CYLINDER, 


SURFACE, SECTOR. 


3022 










;4. 


STARTING 


BUS ADDRESS. 




3023 










;5. 


WORD COUNT FOR DATA TRANSFER. 


3024 
















' (TO 'CHNDS'J. 


3025 










>THE 


QUEUE IS 


LOCATED AT 'CHND 


3026 


















3027 


014406 


104407 






GEN8RQ! CK5WR 






3028 


014410 


005337 


002056 






DEC 


REPCNT 


SDECREMENT REPETITION COUNT 


3029 


014414 


001025 








BNE 


1$ 


JCONIINUE IF NOT 


3030 


014416 


013737 


001236 


002056 




MOV 


PCNTR, REPCNT 


JREESTABLISH REPETITION COUNT FOR EXERCISER 


3031 


014424 


104401 


014432 






TYPE 


,65$ 


JJTYPE ASCIE STRING 


3032 


01 4430 


000407 








BR 


b4S 


; JGET OVER THE ASCIE 


3033 










;>65S: .ASCIZ 


<1S><12>/END OF PASS/ 


3034 


014450 








64S S 








3035 


014450 


01374b 


001 100 






MOV 


SPASS, ~(SP) 




30 36 


01 4454 


005216 










c sp ) 




3037 


014456 


104405 








T YPDS 






3038 


014460 


004737 


021024 








PC, REPSTAT 




3039 


014464 


0001 37 


02261 2 






THP 


5 EOP 




3041 


014470 


032777 


000400 


164442 


1 S J 




1^SW8,9SWR 




3042 


014476 


001422 








BFQ 


2$ 




3043 


01 4500 


032777 


000001 


164432 




BIT 


*SW00, li>SHR 


;SWiTCH SET ? 


3044 


014506 


001410 








BEQ 


8S 


■8R IF NOT 


3045 


014510 


005727 








TST 


CPC) + 


SCHECK INDICATOR 


3046 


014512 


000000 






7S ! 


.WORD 




;TYPE TIME INDICATOR 


3047 


014514 


001013 








BNE 


2$ 


!BR IF TIME ALREADY TYPED 


3048 


014516 


005237 


014512 






INC 


7J 


jlNCREHENT THE INDICATOR 


3049 


014522 


004737 


026556 






JSP 


PCTIMTYP 


;TYPE THE TIME (IF SWR 03 SET) 


3050 


014526 


000406 








BR 


2t 


[CONTINUE 


3051 


014530 


005037 


014512 




8s: 


CLH 


7S 


;CLEAR THE INDICATOR 


3052 


014534 


104401 


001213 






TYPE 


,SCRLF 




3053 


014540 


004737 


021024 






JSR 


PC, REPSTAT 




3054 


014544 


032777 


000040 


164366 


2$: 


BIT 


*Sri5,(aSWR 


;HALT? 


3055 


014552 


001401 








BEO 


33 


;N0 


3056 


014554 


000000 








HALT 




>YES, PRESSING CONTINUE RESUMES PROG EXECUTION 


3057 


















3058 


014556 


004737 


022564 




3$: 


JSR 


PCCHDPRS 


;CHECK IF AMY DRIVES PRESENT 


3059 


014562 


012700 


001306 




4$: 


MOV 


»KEY»R0 




3060 


014566 


010004 








MOV 


R0,R4 




3061 


014570 


005001 








CLR 


Rl 




3062 


014572 


010120 






5S! 


HOV 


Rl , (R0)+ 


{CLEAR THE 8 COMMAND KEYS 


3063 


014574 


062701 


000400 






ADD 


«400,R1 


JBITS 8,9,10 INDICATE THEIR 


3061 


0] 4600 


022701 


004000 






CMP 


*4000,R1 


(POSITION 0,1,2,3,4,5,6,7 


3065 


01 4604 


001372 








BNE 


5S 




3066 


014606 


012700 


00] 326 






MOV 


«CMND,R0 


;CLEAR THE PARAMETER TABLE 


306 7 


0146] 2 


010005 








MOV 


R0,R5 




3068 


014614 


012701 


177740 






MOV 


««40,Ri 


;F0R THE 8 COMMANDS IN Q 


3069 


014620 


005020 






6S! 


CLR 


CR0) + 


;(8X4) WORDS IN ALL 


3070 


01 4622 


005201 








INC 


Rl 




3071 


014624 


001 375 








BNE 


6t 




3072 
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3073 


014626 


004737 


015676 






JSR 


PCCLRFLGS 


;CLEAR THE FLAGS PERTAINING TO THE 8 


307 4 
















{COMMANDS IN THE Q 


3075 
















;R4 CONTAINS 'KEY' 


3076 
















;R5 CONTAINS 'CMND' 


3077 


014632 


022737 


000001 


001264 


GENl : 


cyp 


« 1 , DRVPRS 


{ONLY 1 DRV PRESENT? 


3078 


014640 


001002 








BNE 


22$ 


; NO 


3079 


014642 


005000 








CLR 


fi0 


; YES 


3080 


014644 


000420 








BB 


3$ 




3081 


014646 


004737 


025504 




22S: 


JSR 


PCSRAND 


{GENERATE A RANDOM NUMBER 


3082 
















{GET A RANDOM DRIVE NUMBER 


3083 
















{FROM THE AVAILABLE DRIVES 


3084 


014652 


025636 








PSDPVL 






3085 


















3t?86 


014654 


013745 


025640 






MOV 


RSORVH,-(SP) 


{PUT LOW DIVIDEND ON STACK 


3087 


014660 


005046 








CLR 


-tSP) 


{CLEAR HIGH DIVIDEND AND PUSH 


3088 
















>IT ON STACK 


3089 


014662 


013746 


001520 






MOV 


DRHAP,-(SP) 


{PUSH DIVISOR OH STACK 


3090 


014666 


004737 


025120 






JSR 


PC,a«$0IV 


{GO TO THE 'DIVIDE' SUBROUTINE 


3091 


014672 


005726 








TST 


(SP) + 


{DISCARD THE REMAINDER, QUOTIENT IS 


3092 
















{NOW ON TOP or THE STACK 


3093 


014674 


012600 








MOV 


(SP)+,R0 




3094 


014676 


020037 


001264 






CMP 


R0, DRVPRS 


{MAKE SURE CORRECT MAPPING IS DONE 


3095 


014702 


001001 








BNE 


3S 




3096 


014734 


005300 








DEC 


R0 


{'QDRVE' CONTAINS RANDOM DRIVE NO. 


3097 


014706 


005037 


001502 




3S! 


CLR 


QDRV 




3098 


014712 


116037 


001254 


001502 




MOVB 


PDR(Ra) ,QDRV 




3099 


014720 


105737 


001502 






TST8 


QDRV 


{TEST IF TYPE F DRIVE 


31 00 


014724 


100016 








BPL 


32S 


{NOT IF POSITIVE 


3101 


















3102 


014726 


142737 


000200 


001502 




BICB 


#200, QDRV 


{CLEAR THE FLAG BIT 


3103 


014734 


132737 


000001 


001502 




8ITB 


#1,QDRV 


{ODD OR EVEN DRIVE ADDRESS 


3104 


014742 


001 404 








BEQ 


31S 




3105 


















310b 


014744 


005737 


015632 






TST 


ODDEVN 


{MUST HAVE BEEN AN ODD ONE 


31 07 


01 4750 


001730 








BEO 


GENl 


{INSURE THAT ODDS WHAT WE WANT 


3108 


01 4752 


000403 








BR 


32$ 




3109 


















3113 


014754 


005737 


015632 




31$: 


TST 


ODDEVN 


{MUST HAVE BEEN AN EVEN ONE 


3111 


014760 


001332 








BNE 


22$ 


{NO GOOD - TRY AGAIN 


3112 
3113 


014762 


004737 


025504 




32S: 


JSR 


PCSRAND 


{GENERATE A RANDOM NUMBER 


3114 


014766 


025642 








RSFUNL 






3115 
3116 


014770 


01 37 46 


025644 






MOV 


RSFUNH,.(SP} 


{PUT LOW DIVIDEND ON STACK 


3117 


014774 


005046 








CLR 


-(SP) 


{CLEAR HIGH DIVIDEND AND PUSH 


3118 
















{IT ON STACK 


3119 


014776 


01 3746 


001526 






MOV 


FNMAP,-(SP) 


{PUSH DIVISOR ON STACK 


3120 


015002 


004737 


025120 






JSR 


PC,»<SDIV 


{GO TO THE 'DIVIDE' SUBROUTINE 


3121 


015006 


005726 








TST 


(SP) + 


{DISCARD THE REMAINDER, QUOTIENT IS 


3122 
















{NOW ON TOP OF THE STACK 


3123 


015010 


021627 


000003 






CMP 


(SP),«3 


{MAKE SURE CORRECT FUNCTION IS SELCTD 


3124 


015014 


001001 








BNE 


20$ 




3125 


015016 


005316 








DEC 


(SP) 




3126 


015020 


012637 


001512 




20$: 


MOV 


(SP)+,QFNC 


{THE FUNCTION THAT CAN BE PERFORMED 


3127 


















3128 


015024 


004737 


025504 






JSR 


PCSRAND 


{GENERATE A RANDOM NUMBER 
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SitQ 0084 



015030 


025646 








RSCVLL 




015032 


013746 


025650 






MOV 


RSCyLH,-(SP) 


015036 


005046 








CLP 


~(SP] 


01 5040 


01 3746 


001522 






MOV 


CYLMAP>"(SP) 


015044 


004737 


025120 






JSP 


PC>I)I»DIV 


015050 


005736 








1ST 


(SP) + 


015052 


012637 


001504 






MOV 


CSP)+»QCyL 


015056 


052737 


000313 


001504 




CMP 


*313>QC¥L 


015064 


001002 








BNC 


4$ 


015066 


005337 


001504 






DEC 


QCYL 


015072 














015072 


013746 


025650 






MOV 


RSCyLH,-CSP) 


015076 


005046 








CLR 


'ISP) 


015100 


01 3746 


001534 






MOV 


secMAPr-csp) 


015104 


004737 


025120 






JSP 


PC»9i$DIV 


015110 


005726 








T3T 


(SP) + 


015112 


01 2637 


001510 






HOV 


CSP}^ (QSEC 


015116 


022737 


000014 


001510 




CMP 


*t4f Q8EC 


015124 


001002 








BNE 


5$ 


01 51 26 


005337 


001510 






DEC 


08EC 


015132 


022737 


077777 


025650 


5(1 


CHP 


#77777, RSCYLH 


015140 


101005 








BHI 


64 


015142 


012737 


000030 


001506 




MOV 


*BIT4,aSUR 


015150 


005001 








CLR 


Rl 


015152 


000404 








BR 


7$ 


015154 


005037 


001506 




6i: 


CLR 


OSUR 


015160 


012701 


000014 






MOV 


•14, Rl 



015164 
015172 
015174 
015200 



»PUT LOW DIVIDEND ON STACK 

!CLEAR HIGH DIVIDEND AND PUSH 

;IT ON STACK 

JPUSH DIVISOR ON STACK 

>G0 TO THE 'DIVIDE' SUBROUTINE 

JDISCARD THE REMAINDER, QUOTIENT IS 

!NOW ON TOP or THE STACK 

ICFROH 0<313) 



J'OCYL* CONTAINS RANDOM CYLINDER NO. 



!PUT LOW DIVIDEND ON STACK 

;CLEAR HIGH DIVIDEND AND PUSH 

J IT ON STACK 

JPUSH DIVISOR ON STACK 

JGO TO THE 'DIVIDE' SUBROUTINE 

{DISCARD THE REMAINDER, QUOTIENT IS 

JNOW ON TOP OF THE STACK 

I (BETWEEN 0-13/8) 



;'QSEC' CONTAINS RANDOM SEC t 
; SELECT SUnrACG t RANDOMLY 
JSURFACE 1 

;R1 CONTAINS THE MAXM MORD COUNT BASED ON 
{AVAILABLE DISK SPACE. 

|R2 CONTAINS THE MAXM HORD COUNT BASED ON 
{AVAILABLE MEMORY SPACE. 



{SURFACE 

{14 SECTORS ON SUR 

{ASSUMING THAT ENOUGH MEMORY IS AVAILABLE THE MAXIMUM TRANSFER THAI CAN 
{TAKE PLACE IS 20K WORDS. IF THE RANDOM CYLINDER » > OR ■ TO 307 AND THE 
{SURFACE IS 1, CHANCES ARE THAT THE NUMBER OF WORDS TO BE TRANSFERRED MAY 
{BE GREATER THAN THE SPACE AVAILABLE ON THE DISK. IN THAT CASE, THE WORDS 
{COUNT IS TO BE SELECTED IN SUCH AwAY THAT THIS OVERFLOW DOES NOT OCCUR, 



023727 
003003 
012701 
000431 



015202 012700 
015206 163700 
015212 060001 



001504 
177777 



000014 
801510 



7*1 



CMP 
BGE 
MOV 
BR 



MOV 
SUB 
ADD 



QCYL, #306 
9( 

#177777, Rl 
211 



#14, R0 

QSEC,R0 
R0,R1 



;IS THE RANDOM CYL • GREATER THAN 306T 

{IF YES, MAKE SURE THAT THE 
{WORD COUNT IS SELECTED PROPERLY 
{COMPUTE MAXM WORD COUNT BASED ON 
{AVAILABLE DISK SPACE 
{COMPUTE I OF SECTORS AVAILABLE ON 
{CYLINDERS SELECTED 
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3185 


015314 


013703 


000312 




MOV 


#312, R3 


(COMPUTE * OF SECTORS AVAILABLE 


1186 


01S320 


163703 


001504 




SUB 


QCYL,R3 


{BEYOND THE CYLINDER SELECTED 


3187 


015224 


013746 


000030 




MOV 


*30>«(SP} 


({PUT THE HULTIPLER ON THE STACK 


3188 


015230 


010346 






MOV 


R3,-CSPJ 


{{PUT THE MULTIPLICAND ON THE STACK 


3189 


015232 


004737 


035006 




J8R 


PCr»#«MULT 


((CALL THE MULTPLY ROUTINE 


3190 


015336 


013616 






MOV 


(8P)f ,CSP) 


({DISREGARD THE MSB'S 


3191 


015240 


013603 






MOV 


(SP)t,R3 


((GET THE LSB'S OF THE PRODUCT 


3192 


015343 


060103 






ADD 


Rl»R3 


(COMPUTE TOTAL C OF SECTORS AVAILABLE 


3193 


015344 


013746 


000400 




MOV 


#400, •CSP) 


((PUT THE MULTIPLER ON THE STACK 


1194 


015350 


010346 






MOV 


R3,-CSP) 


((PUT THE MULTIPLICAND ON THE STACK 


3195 


015352 


004737 


035006 




JSR 


PC, *f (MULT 


{(CALL THE MULTPLY ROUTINE 


3196 


015256 


013616 






MOV 


(SP}<f,(SP) 


{(DISREGARD THE MSB'S 


3197 


015260 


013603 






HOV 


CSP)+,R3 


{(GET THE LSB'S Of THE PRODUCT 


3198 


015263 


010301 






MOV 


R3,R1 


(COMPUTE TOTAL • OF MORDS-SPACE 


3199 














(AVAILABLE ON DISK FROM THE SELECTED 


32019 














(CYL » 


3201 














(COMPUTE MAXM HORD COUNT BASED ON 


3203 














(AVAILABLE MEMORY SPACE. 


3203 


015364 


004737 


035504 


2111 


JSR 


PCIRAND 


(GENERATE RANDOM NUMBER 


3204 


015370 


025652 






RSBAL 






3305 
















3306 


015372 


013746 


035654 




MOV 


RSBAH,'(SP) 


(PUT LOW DIVIDEND ON STACK 


3307 


015376 


005046 






CLR 


-tSP) 


(CLEAR HIGH DIVIDEND AND PUSH 


3308 














{IT ON STACK 


3309 


015300 


013746 


001530 




MOV 


BAMAP,-(SP) 


(PUSH DIVISOR ON STACK 


3310 


015304 


004737 


025130 




JSR 


PC,»»*DIV 


(GO TO THE 'DIVIDE' SUBROUTINE 


3311 


015310 


005736 






TST 


(SP) + 


(DISCARD THE REMAINDER. QUOTIENT IS 


3312 














(NOW ON TOP OF THE STACK 


3213 


015312 


013637 


001514 




MOV 


(SP)f iQBUSAD 


(BE USED 


3214 


015316 


006337 


001514 




ASL 


QBUSAD 




3315 


015333 


063737 


003052 i 


01514 


ADD 


BASESA.QBUSAD 


(FORM THE RANDOM BUS-ADDRESS 


3216 














{BY ADDING RANDOM OFFSET TO 


3317 














(THE BASE BUS-ADDRESS 


3218 


015330 


013703 


002054 




HOV 


MAXBA,R3 


(COMPUTE * OF WORDS THAT 


3219 


015334 


163703 


001514 




SUB 


QBUSAD, R3 


(CAN BE TRANSFERRED, USING THE 


333a 


015340 


000341 






CLC 






3331 


015343 


006003 






ROR 


R3 


(ABOVE GENERATED BUS-ADDRESS WITHOUT 


3332 


015344 


010303 






HOV 


R3,R2 


(CAUSING A NXM 


3333 
3324 


015346 


030301 




1011 


CMP 


R2,R1 


(SELECT SMALLER OF THE TWO 


3335 


015350 


103401 






BLO 


111 


(HORD-COUNTS THAT WILL BE 


3326 














{USED FOR GENERATING A RANDOM 


3227 


015353 


010103 






HOV 


R1,P3 


(WORD COUNT) 


3328 
3239 














!R3 CONTAINS THE MAXM WORD COUNT 


3330 














{POSSIBLE. COMPUTE THE WORD COUNT 


3231 














(MAPPING FACTOR FROM THIS. 


3232 


015354 






111! 








3233 
















3234 


015354 


013746 


177777 




HOV 


#177777, -tSP] 


(PUT LOW DIVIDEND ON STACK 


3335 


015360 


005046 






CLP 


-(SP) 


(CLEAR HIGH DIVIDEND AND PUSH 


3236 














(IT ON STACK 


3237 


015363 


010346 






HOV 


B3,-(SP) 


(PUSH DIVISOR ON STACK 


3238 


015364 


004737 


32512? 




JSR 


PC,»«IDIV 


IGD TO THE 'DIVIDE' SUBROUTINE 


3239 


015370 


005736 






TST 




{DISCARD THE REMAINDER. SUOTIENT IS 


?S4? 














iKO* ON TO' 3r THE -St AC"' 
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1241 


015372 


005216 








INC 


csp) 




3242 


015374 


01 2637 


001532 






MOV 


C SP) + # WCMAP 


*hoko count mrppxng factor 


3243 


















3244 


015400 


0047 37 


025504 








PCf*PA"D 




3245 


01 5404 


025656 








RSWCL 






3246 


















3247 


015406 


0t 3746 


025660 






lI?o 


RSWCH# •C5P3 




3248 


015412 


005046 








CLR 


•CSP) 




3249 
















t IT ON STACK 


325H 


015414 


01 3746 


001532 












3251 


015421^ 


0047 37 


025120 






1«D 


PZ f 9IS0IV 




32S2 


015424 


005726 








TST 


C SP J + 




3253 
















fNOW ON TOP OF THE STACK 


3254 


015426 


012637 


001 5 16 








CSPj+#OWRCMT 


> 'f^iaiDPMT' ^nhiTkTMc TUP DAMnnu 
, untvLNi ^uniAino inc. KAnuun 


3255 
















fMORD COUNT THAT HILL BE USED 


32S6 


015432 


(105737 


00151 6 






TST 


OWRi. 


• U&VP CITDP TUP unon fATIHT TQ 


3257 


015435 


00 3004 








BGT 


1 2S 




3258 


015440 


005437 


00 1516 








WR'" NT 




3259 


015444 


0052 37 


001516 






INC 






3263 


015450 


1 1 3700 


001 502 




1 2S : 


MOVB 


OORVr R0 




3261 


015454 


00024 1 








CLC 






3262 


01 5456 


006000 








POR 


R 




3263 


015460 


006000 








FOR 


P 3 


• DrtCTTTrtW TUP nDTUP UITIIQPD T U 

#ri./oiiiun Inc. UK1V& Nunocn ir> 


5264 


015462 


006000 








kOk 


R0 


; BITS I5pl4rl3 


3265 


015464 


006000 








POR 


R3 




3266 


015466 


013701 


001504 






MOV 


OCYLf Rl 




3267 


015472 


000301 










Rl 




3258 


015474 


000241 








ChC 






3269 


015476 


006001 








POP 


PI 


jPOSITIOH THE CYLINDER NUMBER 


3270 


01 5500 


006001 








ROP 


P 1 


* IN BITS 1 2*5 


3271 


015502 


006001 








POP 


P 1 




3272 


01 5504 


050100 








BIS 


^1; ' 




3273 


015506 


05 3700 


001510 






BIS 


QSEC r R0 


uaa rrtMTATMC TUP ("rtMOf PTP PlTCIf 


3274 


015512 


053700 


001 506 






BIS 


QSUH t R0 


; ADDRESS 


3275 


015516 


01 0025 








MOV 


R0 p C R5 ) + 


• TMCPDT DVriA TM TUP DADAMPTPD TABT.P 


3276 
















• rpno TUP Q l*AUMAMnQ^ 

7 I r UK inn i^vnnAivUoJ 


3277 
















;*?HICH FUNCTION? 


3278 
















;0"READ CHECKf I'REAOf 2*WRITE 


3279 


015520 


022737 


000001 


00 1 5 1 2 






^ 1 # Qr NC 




3280 


015526 


001 4 1 2 










2 3 




3281 


015530 


00301 4 








BGT 


14$ 


JREAD CHECK 


3282 


015532 


012725 


000002 




1 $ : 




i2» (R5)+ 


JrtRITE FUNCTION CODE 


328 3 


0155 36 


02 3727 


025660 


----- 




rMD 


now^n»» * f f f / 


■ cuAiir n uDTTP ruvrK ap nnup 


3284 


01 5544 


101010 








ftUT 


1 5 $ 


■ A PTPD TUP UDTTP 3 


3285 


015546 


0527 1 4 


000040 






era 




• CPT PT tif TM IfPV TA THATCATP 
rOCl r L|A\3 in ^Cil l\J inui^AlC 


3286 
















*THAT WRITE CHECK SHOULD BE 


329 7 
















•DONE FOLLOWING THE WRITE 




015552 


000405 








BP 


1 5 S 




3289 


















329»J 


015554 


012725 


000004 




2s: 


MOV 


«4, CR5)+ 


;read function code 


3 291 


015560 


000402 








BR 


15S 




3292 


















3293 


015562 


012725 


900012 




143: 


MOV 


I12> CR5] + 


;READ CHECK FUNCTION CODE 


3294 


















3295 


015566 


013715 


001516 




15S: 


MOV 


aWRCNT» CR51 


: insert the t*OPD COUNT (RKWC) 


329h 


015572 


005425 








NEG 


(R53 + 


! C2'S COMPLEMENT) 
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3297 
3298 
?299 
3 300 
3301 
3 J -12 
33«)3 
3304 
3 305 
3 306 
3307 
3308 
3309 
3310 
331 1 
3312 



015574 013725 001514 

015600 053724 001502 
015604 020427 001326 



01 5610 
01 561 2 



001402 
000137 



015616 005237 
015622 042737 
015630 000207 



015632 000000 



015632 17S: 
177776 015632 



BIS 
CMP 



BEQ 
JMP 



INC 
BIC 
RTS 



aBUSAD,CP5)+ 

ODRV, (R4)+ 
P4, «KE!f + 20 

17$ 

GENl 



OODEVN 

•177776. ODDEVN 



; INSERT THE BUS ADDRESS CRKBA) FOB 
(THIS COMMAND IN THE PARAMETER 
;TABLE 

JSET THE DRIVE NUMBER INSIDE 
JTHE KEY FOR THIS COMMAND 
JGENERATED 8 COMMANDS IN 
;THE QUEUE? 

;IF NOT, GO BACK AND GENERATE 
;THE NEXT COMMAND AND THE 
;PARAMETERS (RKWC, BA, DA) 
fCHANGE FROM ODO/ENEN TO EVEN/ODD 
;KEEP ONLY ONE BIT 
fALL 8 COMMANDS HAVE BEEN 
SGENERATED IN THE TASK-OUEUE 



ODDEVNJ 
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3113 
3314 
3315 
3316 
3317 
3318 
3319 
3320 
3321 
3322 
3323 
3 324 
3325 
3326 
3327 
3328 
3329 
3330 
3331 
3332 
3 333 
3334 
33 35 
33 36 
3 337 
3338 
3339 
334.3 
3341 
3 342 
3343 
3 344 



SENTER THIS CODE ir SH 9 HAS BEEN SET AND LOOPING HAS TO BE DONE ON ERROR 
;CONTROL IS TRANFERPED TO THIS. ON RETURN FROM THE ERROR HANDLER 'SERROR'. 



015634 004737 015714 



015640 
015642 
01S646 
01S6S2 
015656 
01S660 
015662 

01S666 
015672 



015676 
015702 
015704 
015710 
015712 



010146 
012701 
042721 
020127 
001373 
012601 
004737 

012706 
000137 



001306 
U4220 
001326 



001 100 
010556 



012700 001426 
005020 

020027 001462 

001374 

000207 



JWAIT FOR OTHER DRIVES TO GET DONE 
;THEN ISSUE A CONTROL RESET 



JCLEAR OUT THE COMMAND-KEVS 



JCLEAR OUT THE VARIOUS FLAGS PERTAINING 

(TO THE e COMMANDS IN THE 
JREESTABLISH STACK POINTER 
{START OVER AGAIN, PROCESS THE COMMANDS 
;IN THE AGAIN. NOTE THAT ON LOOPING 
;(0N EROR. WITH SW 9) AN ATTEMPT IS MADE 
;T0 RECREATE THE SET OF EVENTS WHICH LED TO 
;ERROR. 



(CLRFLGS 

;THIS ROUTINE CLEARS OUT THE VARIOUS FLAGS USED FOR THE 8 COMMANDS IN THE QUEUE. 



EXCRLUP: JSR 

^'0V 
MOV 

1$! 8IC 
CMP 
BNE 
MOV 
JSR 

MOV 
JMP 



PCf CLRERR 

R1»-(SP) 
IKEYrRl 
#114220. CR1)+ 
Rl . IKEY+20 
II 

(SP)+(R1 
PC.CLPFLGS 

»STACK,SP 
QMNGER 



CLRFLGSI MOV 
1»: CLB 
CMP 
BNE 
RTS 



»BUSY»R» 
CR0) + 

Ra.#QSCNTt2 

IS 

PC 



JCLEAR THE 8 BUSY FLAGS 



JALL DONE? 
;N0 
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3345 










fCLRERR 








3346 










:THtS ROUTINE 


IS ENTERED WHEN 


A HARD ERROR HAS OCCURRED AND IT HAS TO 


BE 


3347 










JCLEARED. THE 


DRIVES THAT HAVE BEEN BUSY ARE CHECKED TO SEE IF THEIR 


R/W/S 


3348 










jRpY BIT HAS SET. WHEN R/W/S 


IS SET, CHECKING IS DONE FOR ANY ERROR. 


IF A 


3349 










;ERROR OCCURED 


IT IS REPORTED, 


IF NOT, APPROPRIATE FLAGS ARE SET AND 




3350 










;CLEARED FOR THAT DRIVE. AFTER 


ABOVE IS DONE FOR ALL DRIVES THAT HAVE 


BEEN 


3351 










{SEEKING, A CONTROL RESET IS ISSUED TO CLEAR THE HARD ERROR. 




3 352 


















3353 


015714 


010446 






CLRERHI MOV 


R4,.(SP) 


SSAVE R4, R4 ON THE STACK 




3354 


015716 


<;i0546 






MOV 


R5.-CSP) 






3355 


015720 


005005 






CLR 


R5 






3356 


015722 


005077 


163302 




CLR 


ORKDA 






3357 


















3358 


015726 


105765 


001426 




IS: TSTB 


BUSYCR53 


;WAS THIS DRIVE BUSY SEEKING? 




3359 


015732 


100035 






BPL 


4$ 


;N0 




3360 


015734 


005037 


001472 




CLR 


Timer 






3361 


015740 


032777 


000100 


163250 


2$: BIT 


iRNS,(aRKDS 


JR/W/S SET? 




3362 


015746 


001015 






BNE 


3$ 


fYES 




3363 


015750 


005237 


001472 




INC 


TIMER 


;KEEP TIME 




3364 


015754 


001371 






BNE 


2$ 


;WAIT FOR R/W/S RDY 




3365 


015756 


004737 


022130 




JSR 


PC.RG4SDR 


jGET RKCS, ER, DS. DA AND DRIVE 1 FOR 




3366 














JTYPINC SERIAL DRIVE t 




3367 


015762 


104004 






ERROR 


4 


;R/W/S READY DID NOT SET 




3368 














;FOR THIS DRIVE, WAITED LONG ENOUGH. 




3369 


015764 


032777 


001000 


163224 


BIT 


*SIN,9RKDS 


;SIN ERROR ON THIS DRIVE? 




3370 


015772 


001403 






BEQ 


3S 






3371 


015774 


004737 


022130 




JSR 


PC,RG4SDR 


;GET RKCS, ER, DS. DA AND DRIVE « FOR 




3372 














;TYPING SERIAL DRIVE » 




3373 


016000 


104016 






ERROR 


16 


ISIN OCCURED ON THIS DRIVE 




3374 


















3375 


016002 


116504 


001426 




3$: MOVB 


BUSY(R5).R4 


JFORM THE ADDRESS OF THE 




3375 


016006 


042704 


177760 




BIC 


»177760,R4 


!KEY WHICH MADE THIS DRIVE 




3377 


016012 


062704 


001306 




ADD 


iKEY,R4 (BUSY 






3 378 


















3379 


016016 


042714 


010000 




BIC 


«10000. (r4] 


JCLEAR HIGH PRIORITY BIT. IF SET 




3380 


016022 


105065 


001426 




CLRB 


BUSY(R5) 


;MAKE THIS DRIVE FREE. AVAILABLE 




3381 


















3382 


















3383 


016026 


062777 


020000 


163174 


4$: ADD 


120000, 9RKDA 


JADDRESS THE NEXT POSSIBLE DRIVE 




3 384 


016034 


005205 






INC 


R5 


! INCREMENT COUNT 




3385 


016036 


022705 


000010 




CMP 


*10,R5 


>ALL DONE 




3386 


016042 


001331 






BNE 


1$ 


;N0 




3387 


















3388 


016044 


004737 


020246 




JSR 


PCfCRCMND 


JSAVE INFO ABOUT THE PAST 4 PRESENT COMAND 


3389 


016050 


104416 






CON. RESET 






3390 


016052 


01260S 






MOV 


(SP)'»,R5 


(RESTORE R4,R5 




3391 


016054 


012604 






MOV 


CSP)+.R4 






3392 


016056 


000207 






RTS 


PC 


SRETURN 
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SEQ 0090 



3 393 








3 394 








3 395 








3 396 








3 397 








3398 








3399 








3 400 








3401 








3402 


016060 


017737 


163144 


3403 


01 6066 


004737 


015714 


34(14 








3 405 








3406 


015072 


013777 


001516 


3 407 


016100 


004737 


020222 


3408 


016104 


012777 


000015 


3409 








3 410 








3 411 


0161 12 


104417 




3412 


016114 


005037 


001472 


3d| 3 


016120 


032777 


000100 


3414 


016126 


00101 5 




3415 


016130 


005237 


001472 










3 4 1 7 


016136 


004737 


0221 30 


3418 








341 ^ 


016142 


104004 












3 421 


016144 


032777 


00 1 000 


3 422 


016152 


001 403 




3423 


016154 


004737 


022130 


3424 








3425 


016160 


104016 




3426 








3427 








3429 








3429 


016162 


004737 


020246 


3430 


016166 


104416 




3431 


016170 


000207 





;CLRSIN 

fTHIS ROUTINE IS ENTERED WHEN THERE IS A 'SIN' ERROR. AT TIME OF ENTRY 
JRKOA CONTAINS THE DRIVE « THAT GAVE 'SIN'. A DRIVE RESET IS DONE ON THAT 
[DRIVE. AFTER IT IS DONE. ROUTINE 'Ct-RHE' IS ENTERED. TO WAIT FOR THE 
jOTHER DRIVES THAT HAVE BEEN DOING SEEKS, WHEN hhh THE DRIVES GIVE 
['R/H/S RDY', A CONTROL RESET IS DONE, RETURN IS MADE BACK TO THIS 
;ROUTINE-'CLRSIN'- AND FINALLY CONTROL IS TRANSFERRED BACK TO THE MAIN 
;PROGRAM. 



001516 clrsin: HOV 
JSR 



163130 
163110 



MOV 
JSR 
HOV 



ARKDA.aWRCNT 
PCfCLRERR 



0hRCNT,9RKDA 

PCrDRCKND 

«15,?RKCS 



CON. RDY 

CLR 

BIT 

BNE 

INC 

JSP 

ERROR 

BIT 
BEO 
JSP 



TIMER 

ttPMSr 9RKDS 
2$ 

TIMER 

PC»RG4SDR 

4 

DSIN.tlRKOS 
2$ 

PC.RG4SDR 



JSR PC.CRCMND 
CON. RESET 
RTS PC 



;SAVE DISK ADDRESS 

;G0» WAIT FOP OTHER DRIVES TO COMPLETE 
;THEIR SEEKSCIF THEY ARE DOING ANY) 
;THEN 00 CON. RESET TO CLR THE EROR. 
;ADDRESS THE DRIVE AGAIH 

;SAVE INFO ABOUT THE PAST & PRESENT COMAND 

;D0 DRIVE RESET ON THE 

JDRIVE 

[INDICATED IN RKDA 



;WAIT FOR R/W/S RDY TO SET 



;GET RKCS, ER, DS, DA AND DRIVE 
[TYPING SERIAL DRIVE » 
JR/W/S RDY DID NOT SET AFTER 
[DOING DRIVE RESET, TIMED OUT 



[GET RKCS, EB, DS, DA AND DRIVE t FOR 
[TYPING SERIAL DRIVE » 

[A DRIVE RESET WAS DONE ON THIS DRIVE 
[TO CLEAR 'SIN', BUT 'SIN' DID NOT GET 
[CLEARED 

[SAVE INFO ABOUT THIS COMMAND 
[DO IT TO CLEAR OUT MASK F/FS 
[EXIT FROM THIS ROUTINE 
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5432 








3433 








3434 








3435 








3436 








3437 








3438 








3439 








3440 








3441 








3442 








3443 








3444 


016172 


105261 


001622 


3445 


016176 


122761 


000005 


3446 


016204 


101403 




3 447 


016206 


062716 


000002 


3448 


016212 


000207 




3449 








3450 


016214 


000137 


016220 



5INCNT 

THIS ROUTINE IS ENTERED WHEN A 'SlN' ERROR OCCURS. THE 'SIN' COUNT FOR 
THE DRIVE GIVING 'SIN' IS INCREMENTED. IF MORE THAN 5 'SIN' ERRORS 
OCCURRED THE DRIVE IS DESELECTED. AT THE TIME OF ENTRY Rl CONTAINS THE 
DRIVE NUMBER THAT GAVE 'SIN' ERROR. 



CALL! 



JSR 



PCSINCNT 

RETURN HERE IF SIN COUNT (MAXIMUM ALLOWABLE) 
WAS EXCEEDED, 

RETURN HERE IF TOTAL SIN COUNT LESS THAN MAXIMUM 
ALLOWABLE, 



INCB 


SINCN(Rl) 


[INCREMENT 'SIN' COUNT FOR THIS DRIVE 


CMPb 


#5,SINCN(H1) 


[5 ERRORS OCCURRED? 


BLOS 


IS 


[YES 


ADD 


»2, (SP) 


[ADJUST PC FOR RETURN TO THE RIGHT POINT 


RTS 


PC 


[RETURN 


JMp 


DSELCT 


[5 ERRORS OCCURRED, GO DESELECT 
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3451 
3452 
3453 
3454 
3455 
3456 
3457 
345S 
3459 
3460 
3461 
3462 
3463 
3464 
3465 
3466 
3467 
3468 
3469 
3470 
3471 
3472 
3473 
3474 
3475 
3476 
3477 
3478 
3479 
3480 
3481 
3482 
3483 
3484 
3485 
3486 
34<»7 
3438 
3489 
3490 
3491 
3492 
3493 
3494 
3495 
3496 
3497 
3498 
3499 
3500 
3501 
3502 
3503 
3504 
3505 
3506 



016220 
016224 
016230 
016234 
016236 
016240 
016244 
016246 
016250 
016252 
016254 
016256 
016260 
016264 
016266 
016270 
016272 
016274 
016300 
016302 



012705 
013702 
062702 
005205 
111503 
042703 
020301 
001403 
020502 
103770 
000472 
] 11502 
020527 
001406 
010504 
005205 
U2S24 
022704 
001374 
105065 



016306 104401 
016312 010146 



016314 
016316 
016317 000 
016320 004737 



104403 
001 



016342 013746 
016346 004737 
016352 005726 



001253 
001264 
001253 



177600 



016324 005337 001264 
016330 004737 022564 



016334 012746 177777 
016340 005046 



001264 
025120 



JD3ELCT 

(THIS ROUTINE IS ENTERED WHEN A DRIVE IS TO BE DESELECTED (TAKEN 
JOUT or SELECTION LISI)» BECAUSE THE TATAL ERRORS OH THAT DRIVE 
(HAS REACHED A MAXIMUM COUNT. Rl CONTAINS THE DRIVE NUMBER THAT 
>THAT IS TO BE DESELECTED. THE DRIVE IS DESELECTED IF 1. TOTAL SIN COUNT 
irOR THAT DRIVE REACHES THE MAXIMUM ALLOWABLE 2. IF A FATAL ERROR 
iLIKE DRIVE UNSAFGf DRIVE POWER LOW OCCURS. 3, IF WPS GETS SET, OR DRV 



016354 012637 001520 



US CLEAR. 






D8ELCTI 


MOV 


*P0R>1,R5 






MOV 


DRVPRS,R2 


JMUMBER OF DRIVES BEING TESTED 




ADD 


•PDP>1.R2 


>FOR END ADDRESS OF TABLE 


111 


INC 


R5 


»LOCATE THE DRIVE (TO BE 




MOVB 


(RS},R3 


} DESELECTED) IN THE TABLE 




BIC 


«177600,R3 


;DROP THE F FLAG 




CMP 


R3.R1 


lis THIS THE ONE 




BEQ 


2$ 


iCONTAINING AVAILABLE DRIVES 




CMP 


R5>R2 


iriNISHED 7 




BLO 


It 


;BR IF NOT 




BR 


lit 


IDRIVE WAS NOT FOUND IN TABLE, EXIT 


2St 


MOVB 


(RS],R2 


IGET THE DRIVE NUMBER 


5tl 


CMP 


RS.VPDR+ie 


;IS THIS DRIVE * THE LAST ENTRY IN TARLE? 




BEQ 


4t 


lYES 




MOV 


RS.R4 






INC 


R5 


;1F NOT, TAKE OUT THIS DRIVE 1 FROM 


381 


MOVB 


(R5}+i (R4}t 


;THE MIDDLE AND PUSH UP THE 




CMP 


fPDR+7>R4 


(REST OF THE ENTRIES 




BNE 


3t 




4ll 


CLRB 


•ICRS) 


ICLEAR LAST ENTRY IN TABLE 








ITHE DRIVE * TYPED OUT WAS DESELECTED 








IBECAUSG ERROR COUNT EXCEEDED THE 








IMAXIMUM ALLOWABLE 




TYPE 


»MSG19 


I TYPE "DRVE DROPPED" 




MOV 


R1,-(SP) 


IPUSH DRIVE NUMBER ON STACK 




TYPOS 




ITYPE IT ON THE TERMINAL 




.BYTE 


1 






. BYTE 









JSR 


PC.SNOTYP 


IGO TYPE OUT SERIAL NO OF THE DRIVE, 








lIF SH 1 IS SET. 




DEC 


ORVPRS 


SDECREMENT THE TOTAL NUMBER OF 








IDRIVES PRESENT 




JSP 


PCrCHOPRS 


ICHECK IF AMY DRIVES PRESENT 








;IF NONE GOT TO END OF PASS, tEOP 




MOV 


#177777, -CSP3 


IPUT LOW DIVIDEND ON STACK 




CLP 


-(SP) 


ICLEAR HIGH DIVIDEND AND PUSH 








lIT ON STACK 




MOV 


DRVPRS,-CSPJ 


IPUSH DIVISOR ON STACK 




JSR 


PCdttOIV 


lOO TO THE 'DIVIDE* SUBROUTINE 




TST 


(5P) + 


IDISCARD THE REMAINDER, QUOTIENT IS 








INOW ON TOP or THE STACK 




MOV 


(5P)+,DRMAP 


;T0 BE USED FOR GENERATING RANDOM 



IDRIVE NUMBERS. 
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3507 


016360 


012704 


001306 




MOV 


fKEY,P* 


{DESELECT THE COMMANDS 


3508 


016364 


011405 




6tl 


MOV 


(r4),r5 


UN THE 'COMMAND Q* CORRESPONDING 


3509 


0U366 


042705 


177770 




BIC 


•177770, R5 


iTO THE DESELECTCD DRIVE 


3510 


016372 


020105 






CMP 


R1«R5 




3511 


016374 


001002 






BNE 


7t 




3512 


016376 


052714 


104000 




BIS 


1104000, (R43 


{INDICATE COMMAND DESELECTED 


3513 


016402 


005724 




7tl 


TST 


(R4) + 


|(AHD COMPLETED) 


35t4 


016404 


022704 


001326 




CNP 


•KEY+20,R4 




3515 


016410 


001365 






BNE 


6t 




3516 
















3517 


016412 


105702 




8tl 


ISTB 


R2 


I'F' TYPE DRIVE 7 


3518 


016414 


100012 






BPL 


lit 


INO - JUST EXIT 


3519 


016416 


032701 


000001 




BIT 


«t#Rl 


lODD OR EVEN DRIVE NUMBER 


3520 


016422 


001403 






BEO 


9t 




3521 


016424 


042701 


000001 




BIC 


»1,R1 




3522 


016430 


000402 






BR 


10t 




3523 


016432 


052701 


000001 


9tl 


BIS 


*t,Rl 




3524 


016436 


000137 


016220 


10tl 


J MP 


OSELCT 


lOROP CORRESPONDING DRIVE 


3525 
















3526 
















3527 


016442 


000137 


010536 


iltl 


JMP 


SEGNEX 


iGO RESTART EXERSISOR PART OF TEST 
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3S28 










jCHKDRV 










35J9 










!THIS ROUTINE 


CHECKS FOR FATAL 


ERRORS OF THE DRIVE LIKE OPLi DRV 


3510 










;WPS. 


ir ANY 


ONE OF THESE ERRORS OCCUR THE DRIVE IS DESELECTED 


3531 










!AND NO 


MORE ! 


FUNCTIONS WILL 1 


BE 


PERFORMED ON THAT DRIVE, Rl 


3532 










>CONTAINS THE 


DRIVE NUMBER TO 1 


3E CHECKED. 


3533 




















3534 










!»NOTE 


1! IN 


THE ERROR MESSAGE 


WHERE RKDA IS PRINTED OUT> IT GIVES 


3535 










J»ONLy 


THE DRIVE NUMBER CNOT 


CYLINDER, SUFACE AND SECTOR). 


3536 




















3537 










tCALLI 


JSR 


PC, CHKDRV 






3538 










; 




RETURN HERE IF 


ANY FATAL ERROR OCCURED 


3539 










t 




RETURN HERE IF 


THERE WAS NO FATAL ERROR 


354«» 




















3541 


016446 


017746 


162556 




CHKDRV: 


MOV 


iaRKDA,-CSP) 




;SAVE RKDA 


3542 


016452 


010146 








MOV 


R1,-CSP) 




SGET DRIVE » 


3543 


016454 


000241 








CLC 








3544 


016456 


006016 








ROR 


(SP) 






3515 


016460 


006016 








ROR 


(SP) 






3546 


016462 


006016 








ROR 


tSP) 






3547 


016464 


006016 








ROR 


CSPJ 






3S48 


016466 


012677 


162536 






MOV 


(SP]«,(>RKDA 




; ADDRESS THE DRIVE TO BE CHECKED 


3549 


016472 


032777 


010000 


162516 




BIT 


(DPLiSRKDS 




;DRIVE POWER L0N7 


3550 


016500 


001403 








BEQ 


IS 






555 i 


016302 


004737 


022130 






JSR 


PC,RG4SDR 




:GET RKCS, ER. 0S« DA AND DRIVE t 


3552 


















JFOR TYPING SERIAL NUMBER 


3553 


016506 


104035 








ERROR 


35 




;DR1VE POWER LO, *NOTE I ABOVE 


3554 


016510 


032777 


002000 


162500 


1$: 


BIT 


tDRU,l>RKDS 




JDRIVE 


3555 


016516 


001403 








BEO 


2S 






3556 


016520 


004737 


022130 






JSR 


PCrRG4S0R 




iGET RKCS, ER, OS, OA AND DRIVE » 


3557 


















SFOR TYPING SERIAL NUMBER 


3558 


016524 


104036 








ERROR 


36 




JORIVE UNSAFE BIT IS SET 


3559 


















|»NOTE 1 ABOVE 


3560 


016526 


032777 


000040 


162462 


2S! 


SIT 


«i4PS.9RKDS 




JWRITE PROTECT SET? 


3561 


016534 


001403 








BEQ 


33 






3562 


016536 


004737 


022130 






JSR 


PC,RG4SDR 




;GET RKCS, ER, OS, DA AND DRIVE 1 


3563 


















;FOR TYPING SERIAL NUMBER 


3564 


016542 


104037 








ERROR 


37 




J WPS SET, CHECK WRTE PROTECT SWTCH 


3565 


















;»NOTE 1 ABOVE 


3566 


016544 


032777 


000200 


162444 


3St 


BIT 


lORY.ORKDS 




;ORIVE READY CLEAR? 


3567 


016552 


001004 








BNE 


4$ 






3568 


016554 


004737 


022130 






JSR 


PC»RG4SDR 




tGET RKCS, ER, OS, DA AND DRIVE « 


3569 


















{FOR TYPING SERIAL NUMBER 


3570 


016560 


104034 








ERROR 


34 




;DRIVE READY CLEAR, SHOULD BE SET 


3571 


















>»NOTE 1 ABOVE 


3572 


016S62 


00041 1 








BR 


5$ 






3573 




















3574 


016S64 


032777 


dl2<i<Hi 


162424 


4s: 


BIT 


*12040,9RKDS 




lANY ERROR? 


3575 


016572 


001005 








BSE 


5S 




syES 


3576 


016574 


012677 


162430 






MOV 


tSP)+,9RK0A 




> RESTORE RKDA 


3577 


016600 


062716 


£00002 






ADD 


(2«CSP1 




; ADJUST RETURN ADDRESS 


3578 


016604 


0H0207 








RTS 


PC 






3579 




















3580 


016606 


000137 


016220 




5s: 


JMP 


DSELCT 
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35S1 










rGFNBUF 








3582 










;THIS ROUTINE 


GENERRAES A BUFFER FULL OF RANDOM DATA WORDS. THIS BUFFER 


J583 










;IS THEM USED 


TO WRITE DATA 


ON THE DISK. AT THE TIME OF ENTRY, RKDA 


35«4 










;CONTAINS THE 


DISK ADDRESS 


WHERE WRITE HILL BE DONE. SEED WORDS USED FOR 


3595 










;THE RANDOM NUMBERS AREI 




3596 












1) ABSOLUTE DISK ADDRESS (DRIVE *, CYL t, SEC f, SUR 1] • IHINUM 


3587 












2) COMPLEMENT OF THE ABOVE WORD 


3588 










;CALL; 


JSR 


K5,GENBUF 




3589 












X 


}X 


IS THE WORD COUNT (2'S COMPLEMENT) 


359>a 












Y 


SY 


IS THE STARTING ADDRESS OF THE 


3591 














(MEMORY BUFFER, 


3592 


















3593 


016612 


104414 






GENBUFJ 


SAVREG 


;SAVE REGISTERS 


3594 


016614 


016504 


000002 






MOV 


2Cr5],r4 


;GET STARTING ADDRESS OF BUFFER 


3595 


016620 


011503 








MOV 


(R5),R3 


fGET WORD COUNT (i OF WORDS TO 


3596 
















;BE GENERATED) 


3597 


















3598 


016622 


017702 


162402 






MOV 


aRKDA,R2 




3599 


016626 


010237 


025664 




ISi 


MOV 


R2,RSDTH 


;GET THIS RANDOM SEED 


360*} 


016632 


010237 


025662 






MOV 


R2,RS0TL 




3601 


016636 


005137 


025662 






COM 


RSDTL 


;GET LO RANDOM SEED 


350? 


















36!?3 


016642 


022703 


177400 






CMP 


«>400,r3 


J IF THE BUFFER IS MORE THAN 


3604 


016646 


003003 








BGT 


2$ 


;ONE SECTOR C400 WQROS) LONG* 


3605 


016650 


010305 








MOV 


R3,P5 


JGENERATE THE BUFFER IN SUCH 


36;a6 


P16652 


005003 








CLR 


R3 


;A WAY THAT EACH SECTOR 


1607 


016654 


000404 








BR 


3$ 


JBECINS WITH RANDOM DATA 


36^8 


















36H9 


016656 


062703 


000400 




2S: 


ADD 


tl400,R3 


; WORDS GENERATED USING THAT 


3610 


016662 


012705 


177400 






MOV 


t-400,R5 


jSECTOR ADDRESS AS THE RANDOM 


3611 
















J SEED 


3612 


016666 


010524 






3S: 


MOV 


R5, (R4)+ 


;FIRST WORD OF EVERY SECTOR IS 


3bl 3 
















;A WORD COUNT (2'S COMP) INDICATING « 


3614 
















;0F WORDS ACTUALLY WRITTEN IN THAT SECTOR 


3615 


016670 


005205 








INC 


R5 


(ALL DONE? 


3616 


016672 


001427 








BEO 


8S 




3617 


















3618 


016674 


004737 


025504 




4S; 


JSR 


PCSRAND 


SGENERATE DATA WORDS 


3619 


016700 


025662 








R5DTL 






3620 


016702 


012737 


000002 


ai7{?12 




MOV 


«2,RCNT 




36?1 


016710 


013737 


025664 


017014 




MOV 


RSDTH,RNUH 




3622 


016716 


000406 








BR 


6S 




3673 


016720 


005337 


017012 




5s; 


DEC 


RCNT 




3624 


016724 


001763 








BEO 


4$ 




3625 


016726 


013737 


025662 


017014 




MOV 


RSDTL, RNUM 




3626 


016734 


005737 


017014 




6SI 


TST 


RNUM 




3627 


016740 


001767 








BEO 


5S 




3678 


016742 


013724 


017014 






MOV 


RNUM, (R4}'> 


;FILL THE BUFFER. DON'T USE 


3629 


016746 


005205 








INC 


RS 


!ALL DONE? 


3630 


016750 


001351 








BNE 


4$ 


;N0 


3631 


















3632 


016752 


005703 






8s: 


TST 


R3 


JANY MORE DATA WORDS CFOR 


3633 


016754 


001412 








BEQ 


10$ 


(REST OF THE SECTORS)? 


36B4 
















;yes 


3615 


016756 


010246 








MOV 


R2,-CSP) 




3636 


016760 


042716 


177760 






BIC 


#177760, CSP) >( ABSOLUTE DISK ADDRESS t ITS 
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SEO 0(996 



3637 


016764 


022726 000013 




CMP 


il3, (SP)+ 


JCOMPLEMENT) TO USE FOR 


3638 


016770 


001002 




BNE 


91 


;GENERATING DATA WORDS 


3639 


016772 


062702 000004 




ADD 


*4tR2 


»0F THE NEXT BLOCK 


3643 














3641 


016776 


005202 


9$l 


INC 


R2 


;HI RANDOM SEED 


3642 


017000 


000712 




BR 


IS 




3643 














3644 


017002 


104415 


10$: 


RESREG 




.•RESTORE REGISTERS 


3645 


017004 


062705 000004 




ADO 


*4iR5 


; ADJUST RETURN ADDRESS 


3646 


017010 


000205 




RTS 


R5 


(RETURN 


3647 














3648 


017012 


000000 


rcnt: 









3649 


017014 


000000 


rnum: 
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3650 








3655 








3652 








3653 








3654 








3655 








3656 








3657 








3658 


017016 


104414 




3659 


017020 


016303 


002032 


3660 








3661 


017024 


016304 


000004 


3662 


017030 


016305 


000006 


3663 


017034 


011301 




3664 








3665 


017036 


010146 




3666 


017040 


004737 


022076 


3667 








3668 


017044 


012602 




3669 


017046 


006302 




3670 


017050 


062702 


001712 


3671 








3672 


017054 


012737 


177764 


3673 


017062 


011337 


025664 


3674 


017066 


013737 


025664 


3675 


017074 


005137 


025662 


3676 








3677 


017100 


022704 


177400 


3678 


017104 


003003 




3679 


017106 


010403 




3680 


017110 


005004 




3681 


017112 


000404 




3682 








3683 


017114 


062704 


000400 


3684 


017120 


012703 


177400 


3685 


017124 


012500 




3686 








3687 








3688 








3689 


017126 


005200 




3690 








3591 


017130 


005203 




3692 


017132 


001465 




3693 








3694 


017134 


004737 


025504 


3695 


017140 


025662 




3696 


017142 


012737 


000002 


3697 


017150 


013737 


025664 


3698 


017156 


000406 




3699 


017160 


005337 


017012 


3700 


017164 


001763 




3701 


017166 


013737 


025662 


3702 


017174 


005737 


017014 


3703 


017200 


001767 




3704 








3705 


017202 


005700 





(DAICHK 

STHIS ROUTINE IS ENTERED WHEN THE DATA THAT HAS READ FROM THE DISK IS TO 
IBE CHECKtD. AT THE TIME OF ENTRY r3 CONTAINS THE OFFSET OF POINTER TO 
JTHE »DDRESS OF THE PARAMETER LIST t RKcS, D* » • ' • D»TA IS CHECKED IN 
IBLOCKS OF 1 SECTOR (400 WORDS). EACH BLOCK IS GENERATED USING THE SECTOR 
(ADDRESS (AND ITS COMPLEMENT) AS RANDOM SEEDS. WHEN A DATA MISCOMPARISON 
(OCCURS THE BUS AOORESSf EXPECTED AND RECEIVED DATA ARE REPORTED. 

DATCHK! SAVREG (SAVE H0-R5 

MOV PCMND(R3)»R3 (GET ADDRESS OF THE PARAMETER 

(TABLE 



001540 
025662 



017012 
017014 



017014 



MOV 


4CR3)rR4 


[GET WORD COUNT C2'S COMP) 


MOV 


6CR3)fR5 


(GET BUS ADDRESS 


MOV 


(R3).R1 


(GET DISK ADDRESS 


MOV 


R1,-CSP) 




JSR 


PC»CROTLF 


(ROTATE BITS 15,14,13 TO 






(0,1,2 


MOV 


(SP)+»R2 


(POP OFF DRIVE » FROM THE STACK 


ASL 


R2 




ADD 


*0ATER,R2 


(FORM THE ADDRESS OF DATA ERROR COUNT 






(FOR THIS DRIVE 


MOV 


»-14,EC0UNT 




MOV 


{R3]f R8DTH 


(CREATE RANDOM SEEDS TO 


MOV 


RSDTH, RSDTL 


(BE USED FOR CHECKING DATA 


COM 


RSDTL 




CMP 


*.400,R4 


(DATA IS CHECKED IN 1 SECTOR 


BGT 


2$ 


(BLOCKS. EACH SECTOR IS GENERATED 


MOV 


R4,R3 


(USING THAT SECTOR ADDRESS 


CLR 


R4 


(AS THE RANDOM SEED 


BR 


31 




ADD 


1400, R4 




MOV 


••400, R3 




MOV 


(R5)^,R0 


(SAVE THE FIRST WORD OF THE SECTOR, 






(FIRST WORD OF EVERY SECTOR IS A COUNT 






(t2'S COMP) INDICATING * OF WORDS ACTUALY 






(WRITTEN IN THAT SECTOR 


INC 


R0 


[INCREMENT COUNT OF # OF WORDS tWRITEN) 






[IN THE SECTOR 


INC 


R3 


(INCRMENT COUNT OF DATA WORDS TO BE CHECKED 


BGQ 


14$ 


[BRANCH, IF DONE 


JSR 


PC,$RANO 


(GENERATE RANDOM DATA WORD 


RSDTL 






MOV 


)I2,RCNI 




MOV 


RSDTH, RNUM 




BR 


10* 




DEC 


RCNT 




BEO 


41 




MOV 


RSDTL, RNUM 




1ST 


RNUM 




BEQ 


9$ 




TST 


R0 
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S£Q 0098 



706 
707 
708 
3709 
710 
7U 
712 
713 
714 
715 
716 
717 
718 
7l9 
720 
721 
722 
723 
724 
725 
72b 
727 
718 
729 
730 
731 
732 
733 



017204 


001401 




BEQ 


5$ 




017206 


005200 




INC 


R0 




017210 




037014 5Sl 








017214 


001431 




BEQ 


8S 


; YES 


017216 


005700 




TST 


R0 




017220 


001005 




3NE 


6S 




017222 


005715 




TST 


CR5) 




017224 


001425 




BEO 


8$ 




017226 


005037 


001164 


CLR 


tREGl 




017232 


000403 




BR 


7$ 




017234 


013737 


017014 001164 6$: 


MOV 


RNU»1»$REG1 


;SAVE EXPCTD DATA WORD 


017242 


005212 


7St 


INC 


(R2) 


;INCR«NT DATA EROR COUNT FOR THIS DRVE 


017244 


005737 


001540 


TST 


ECOUNT 


(STORE ONLY 12 (DEC) DATA ERRORS 


017250 


001413 




BEQ 


8$ 


J IF MORE EXIT 


017252 


010537 


001162 


MOV 


R5r$REG0 


;SAVE ERROR BUS ADDRESS 


017256 


011537 


001166 


MOV 


(R5],$REG2 


JSAVE ERROR DATA WORD 


017262 


010137 


001170 


MOV 


R1>$REG3 




017256 


004737 


022134 


JSR 


PCrGTSDRV 


SSAVE DRIVE *, FOR TYPING SERIAL # 


017272 


104023 




ERROR 


23 


;DATA (COMPARISON) ERROR ON DOING 



SREAO FROM DISK NORMALLY ONLY 12 DATA 
IeRRORS will BE REPORTED, THROUGH 
(CHECKING WILL BE DONE, ERRORS 
.•EXCEEDING 12 WON'T BE REPORTED. IF 
;YOU WANT MORE, CHANGE 'ECOUNT', TO 
; WHATEVER # OF ERRORS YOU WANT REPORTED 



3 7 34 


017274 


005237 


001540 




INC 


ECOUNT 




3735 
37 36 


017300 


005725 




8S: 


TST 


(R5) + 




3737 


017302 


005203 






INC 


R3 


SDONE CHECKING? 


3738 


017304 


001313 






BNE 


4$ 




3739 
















3740 


017306 


005704 




I4s: 


XST 


R4 


JANY MORE SECTOR BLOCKS 


3741 


017 310 


001427 






BEQ 


17$ 


JTO CHECK? IF NOT, EXIT , 


3742 
















3743 


017312 


010146 






HOV 


R1,-CSP) 




3744 














;GET THE NEW RANDOM SEEDS 


3745 


017314 


042716 


177760 




SIC 


#177760, (SP: 


{(ABSOLUTE DISK ADDRESS & ITS COMPLEMENT) 


3746 


017320 


022726 


00001 3 




CMP 


#13, (SP)+ 


;T0 USE FOR GENERATING DATA WORDS 


3747 


017324 


001002 






SNE 


15S 


JOF THE NEXT BLOCK 


3748 


017326 


062701 


000004 




ADD 


*4,R1 




3749 
















3750 


017332 


005201 




15SI 


INC 


Rl 




3751 


017334 


032777 


000002 


161656 


BIT 


#CSE,9RKER 


;IF THERE WAS A CSE THEN CHECK 


3752 


017342 


001403 






BEQ 


16$ 


(ONLY THOSE SECTORS THAT WERE READ 


3753 


017344 


020177 


161660 




CMP 


R1,9RK0A 




3754 


017350 


001407 






BEQ 


17$ 




3755 


017352 


310137 


025664 


16$: 


HOV 


R1,RSDTH 




3756 


017356 


010137 


025662 




HOV 


R1,RSDTL 




3757 


017362 


005137 


025662 




COM 


RSOTL 




3758 


017366 


000644 






BR 


1$ 




3759 


017370 


104415 




17«t 


KESREG 




(RESTORE R0-R5 


3760 


017372 


000207 






RTS 


PC 
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3761 
3762 
3763 
3764 
J765 
3766 
3767 
3768 
3769 
3770 
3771 
3772 
3773 
3774 
3775 
3776 
3777 
3778 
3779 
3780 
3781 
3782 
3783 
3784 
3785 
3786 
3787 
3788 
3789 
3790 
3791 
3 792 
3793 
3794 
3795 
37 96 
3797 
3798 
3799 
3800 
3831 
3802 
3803 
3804 
3805 
38g6 
3307 
3808 
3809 
3810 
381 1 
3812 
381 3 
3814 
3815 
3816 



017374 
017376 
017400 
017402 
017404 
017410 
017414 

017416 
017420 
017424 
017430 
017432 
017434 
017436 
017444 
017450 
017456 
017460 
017464 
017470 
017476 
017500 
017504 
017506 
017512 
017514 
017522 
017530 
017532 
017534 
017540 
017546 
017552 
017556 
017562 
017564 
017566 
017572 
017574 



010046 
010146 
010246 
010346 
013746 
013746 
010600 

104400 
012637 
012701 
105727 
000200 
100062 
012737 
005737 
052737 
005046 
012702 
012703 
012762 
011622 
06271 6 
077307 
012742 
005042 
012737 
012737 
000401 
022626 
005237 
012737 
005737 
062712 
023712 
101371 
011202 
005037 
000421 
042737 



.SBTTL ROUTINE TO SIZE MEMORY 

•••••**•*«*•••*«»•••»••«*«*•**«*»»»••««««*»•*•«*••**»«••*•**«««* 

♦CALL! 

♦ JSR PC,SSIZE 

♦ RETURN 
»$LSTAD WILL CONTAINS 

• WITH KTll OPTION 

* WITHOUT KTll OPTION 
•SLSTBK WILL CONTAIN THE LAST BANK AS 
»SKT11 IS THE MEMORY MANAGEMENT KEY 
♦8IT07 = DON'T USE MEMORY MANAGEMENT 

* MUST BE SETUP BEFORE THE CALL 
•8IT15 = a DON'T HAVE MEMORY MANAGEMENT OPTION 

• DETERMINED BY ROUTINE 



- LAST VIRTUAL ADDRESS OF THE LAST BANK 
• LAST ABSOLUTE ADDRESS OF AVAILABLE MEMORY 
SAF 



ssize: 



000004 
017432 



000004 
000006 



000006 
003776 



017574 
177572 
100000 

172340 
000010 
077406 



177600 



017532 
000020 



177572 
017564 
143776 
000040 
172356 



100000 017432 



MOV 
MOV 
HOV 
MOV 
HOV 
MOV 
MOV 

((SET THE ERRVEC 

TRAP 

MOV 

MOV 

ISTB 
$KT1H .WORD 

BPL 

MOV 

TST 

BIS 



((SAVE R0 ON THE STACK 

( (SAVE Rl ON THE STACK 

((SAVE R2 ON THE STACK 

J (SAVE R3 ON THE STACK 

((SAVE PRESENT ERROR VECTOR PS 



000004 
172516 



CLR 
MOV 
MOV 
MOV 
HOV 
ADD 
SOB 
MOV 
CLR 
MOV 
MOV 
BR 
CMP 
INC 
MOV 
TST 
ADD 
CMP 
BHI 

JKTOUT: MOV 
CLR 
BR 

«KTNEX! BIC 



3$: 



4$: 



R0,>(SP) 
R1,-(SP) 
R2,-(SP) 
R3,-(SP) 

9tERRVEC,-CSP) ((SAVE PRESENT ERROR VECTOR PS & PC 
0»EPRVEC+2,-tSP) 

SP,R0 ([SAVE THE STACK POINTER 

PS TO THE PRESENT PS 

{(PUSH OLD PSW AND PC ON STACK 

((SAVE THE PSW IN »*ERRVEC+2 
((SETUP ADDRESS 
(JUSE MEMORY MANAGEMENT? 
((SET TO USE MEMORY MANAGEMENT 
((BR IF NO 

{ (SET FOR TIMEOUT 
t I KTll ARE YOU THERE? 
((YES—SET KTll KEY 
((INITIALIZE FOR "PAR" LOADING 
{(ADDRESS OF FIRST "PAR" 

((LOAD EIGHT "PAR.'S" AND EIGHT "PDR.'S" 
{(PDR « 4K, UP, READ/WRITE 
((LOAD "PAR" 
{{UPDATE FOR NEXT "PAR" 
{(LOOP UNTIL ALL EIGHT ARE LOADED 
{(SETUP KIPAR7 FOR I/O 
((SETUP KIPAR6 FOR TESTING 
{(CATCH TIMEOUT IF NO SR3 
((ENABLE 22 BIT MODE 
{{THIS PDP-11 HAS A SR3 REGISTER 
{ {CLEAN OFF THE STACK--NO SR3 
{{TURN ON MEMORY MANAGEMENT 



(SP)+,9»ERRVEC+2 

#3776, Rl 

(PC) + 

200 

SCORE 

*$KTNEX,9teRRVEC 
atSR0 

#100000, $KT11 
-(SP) 

»KIPAR0,R2 
#•08, R3 

#77406, -40CR2) 
(SP), (R2)+ 
#200, (SP) 
R3,l$ 

#177600, -(R2) 
-(R2) 

»2$,*iERRVEC 

»20,0«SR3 

3$ 

(SP)+, (SP)+ 
l>tSR0 



»$KTOUT,B»ERRVEC {(SET FOR TIME OUT 

ptl43776 {(TRAP ON NON-EX-MEM 

#40, (R2} {{MAKE A IK STEP 

9IKIPAR7, (R2) {{LAST ONE? 

4$ ((NO--TPY IT 

(R2),R2 {{GET LAST BANK+1 

0«SR0 ({TURN OFF MEMORY HANAGCMENT 
$SIZEX 

#100000, $KT11 {(KTll NON-EXISTENT 
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see eiee 



38l7 


017602 


013737 


017632 000004 


ICOREI 


NOV 


IICROUT,»IERRVEC 


MSET FOR TIMEOUT 


3818 


017610 


005002 






CLR 


R2 


;iSET UP BANK 


3819 


017612 


062701 


004000 


lit 


ADD 


I4000.R1 


n INCREMENT BY IK 


3820 


017616 


062702 


000040 




ADD 


•40«R3 


nlK STEP 


3831 


017632 


005711 






TST 


(Rl) 


MTPAP on TIME OUT 


3822 


017634 


022701 


177776 




CMP 


»177776,R1 


MLAST ONE 


3823 


017630 


001370 






BNE 


It 


; JHO— TRY AGAIN 


3824 


017633 


162701 


004000 


ICROUTI 


SUB 


*4000iRl 




3825 


017636 


162702 


000040 


ISIZEXI 


SUB 


140, R2 


JJDROP BACK 


3826 


017643 


010006 






MOV 


R0«SP 


>| RESTORE THE STACK 


382? 


017644 


012637 


000006 




MOV 


(SP)+,»#ERRVEC+2 


n RESTORE ERROR VECTOR 


3838 


017650 


012637 


000004 




MOV 


CSPl+f »»ERRVEC 




3829 


017654 


010137 


017676 




MOV 


Rl.SLSTAO 


MLAST ADDRESS 


3830 


017660 


010337 


017700 




MOV 


R2>$t>STaiC 


mlast bank 


3831 


017664 


012603 






MOV 


(SP)+,R3 


M RESTORE R3 


3832 


017666 


012602 






MOV 


(SP}+,R2 


;> RESTORE R2 


3833 


017670 


013601 






MOV 


(SP)f >R1 


MRESTORE Rl 


3834 


017672 


012600 






MOV 


(SP)+,R0 


llRESIORE R0 


383S 


017674 


000307 






RTS 


PC 




3836 


017676 


000000 




ILSTADI 


.HORD 





^CONTAINS THE LAST ADDRESS 


3837 


017700 


000000 




(LSTBKI 


.WORD 





nCONTAINS THE LAST BANK 
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3838 








3839 








3840 








3841 








3842 








3843 








3844 


017702 


033777 


020000 


3845 


017710 


001043 




3846 


017712 


010346 




3847 


017714 


010446 




3848 


017716 


010546 




3849 








3850 


017730 


010346 




3851 


017733 


004737 


033076 


3853 


017736 


013603 




3853 


017730 


006303 




3854 








3855 


017733 


016304 


172340 


3856 








3857 


017736 


005003 




3858 


017740 


012705 


177772 


3859 


017744 


006104 




3860 


017746 


005305 




3861 


017750 


001375 




3862 








3863 








3864 


017752 


010246 




3865 








3866 


017754 


042716 


160000 


3867 


017760 


062604 




3868 


B17762 


005503 




3869 








3870 


017764 


010437 


001162 


3871 


017770 


010337 


001164 


3872 


017774 


012746 


001162 


3873 


030000 


004737 


024373 


3874 








3875 








3876 








3877 


030004 


004737 


024732 


3878 








3879 








3880 


030010 


012605 




3881 


030012 


012604 




3882 


030014 


012603 




3883 








3884 


020016 


000207 





ITYPDBO 

ITHIS ROUTINE CONVERTS A VIRTUAL ADDRESS TO PHYSICAL ADDRESS AMD TYPES 
;OUT THE 6 DIGIT PHYSICAL ADDRESS. r2 CONTAINS VIRTUAL ADDRESS AT THE TIHE 
jOr ENTRY. 

ttype OUT IS Inhibited ir su i3 is set. 



BIT 


•SH13r»SHR 


;INHIBIT TYPEOUT? 


BNE 


2« 


lYES 


MOV 


RSfCSP) 




MOV 


R4,-(SP} 




MOV 


R5,-(8P) 




MOV 


R2>>(SP) 


!PU8H VA ON STACK 


JSR 


PC»CROTLF 


jROTATe bits 15.14.13 INTO 3.1,0 


MOV 




IFORM OFFSET TO BE USED 


ASL 


R3 


>FOR KIPAR 


MOV 


KIPAR0CR3},R4 


;GET THE BASE PAGE ADDRESS FROM 






IKIPAR 


CLR 


R3 


(ROTATE LEFT 6 TIMES (MULTIPLY 


MOV 


«-6,R5 


;BY 100 OCTAL) TO GET THE 


ROL 


R4 


IBASE BUS ADDRESS (PHYSICAL) 


INC 


R5 


>R3 CONTAINS MSB-3 BITS 


BNE 


It 




MOV 


R3.«C8P) 


;STRXP OFF TOP 3 BITS FROM VA & 


BIC 


1160000, CSP] 


;GET THE OFFSET INSIDE THE PAGE 


ADD 


(SP)t,R4 


JFORM THE ENTIRE PHYSICAL 


ADC 


R3 


{ADDRESS, R4 CONTAINS LONER 16 BITS 






|R3 CONTAINS TOP 2 BITS 


MOV 


R4>tREG0 


ISAVE LOWER 16 BITS OF PA 


MOV 


R3f tREGt 


(SAVE TOP 3 BITS OF PA 


MOV 


*tREG0#-(SP} 


(PUSH POINTER TO PA ON STACK 


JSR 


PCr»ltDB30 


(CONVERT THE 18 BIT BINARY 






(ADDRESSS TO OCTAL ASICI NUMBERS ON RETURN 






(POINTER TO THE FIRST ASCIZ CHARACTERS 






(IS ON STACK 


JSR 


PCi»«SUPRS 


(TYPE OUT THE OCTAL 6 DIGIT 






(PHYSICAL ADDRESS. 


MOV 


(SP]tiR5 




MOV 


(8P}+,R4 




MOV 


(SP}+.R3 
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SEO 0102 



3S8S 








3396 








33S7 








3888 








3889 








3893 


020iid20 


005777 


161 176 


3891 


020^24 


1 0007 3 




3892 


020026 


004737 


021 740 


3893 


020032 


000207 




3394 








3895 








3896 








3897 








3898 








3899 








3930 








39k>l 


020034 


02027 7 


161170 


3932 


020040 


001 465 




3933 


020042 


010237 


001 162 


3904 


020046 


017737 


161156 


3905 


020054 


000207 




39(»6 








3907 








3938 








3909 








39ia 








3911 








39l2 








391 3 








391 4 


020056 


000241 




39l5 


020060 


006103 




3916 


020062 


060304 




391 7 


020064 


00024 1 




391 8 


020066 


006003 




3919 


020070 


020477 


161132 


39^0 


020074 


0W 14 4/ 




39J 1 


020076 


01 0437 


001 162 


3922 


020102 


000207 




3923 








3924 


020104 


017737 


161116 


3925 








392b 








3927 








3928 








3929 








39 Jij 


020112 


017746 


161104 


3931 


020116 


042716 


177717 


3932 


020122 


022726 


000020 


3933 


020126 


001432 




3934 


020130 


004737 


021740 


393S 


020134 


000207 





JCHKCS 

>THtS ROUTINE CHECKS IF BIT IS OF RKCS MAS SET. IF IT MAS RETURN IS MADE TO 
»THE ERROR MESSAGE FOLLOWING THE JSR CALL. IF MOT/ THE ERROR HADE TO SKIP 
iOVER THE ERROR MESSAGE. 



CHKCS! 



TST 9RKCS 

BPL COMRET 

jSR PC»gT4RG 

RTS PC 



!BIT 15 SET? 
;N0 

;yES, GET RKCSf ER. DS> OA 
(RETURN TO THE ERROR MESSAGE 



JCHKDA 

>THIS ROUTINE CHECKS IF RKOA INCREMENTED CORRECTLY. IF NOT» RETURN IS MADE 
!T0 THE ERROR MESSAGE FOLLOWING THE JSR CALL. IF YES, RETURN IS MADE TO 
(SKIP OVER THE ERROR MESSAGE. 

(AT THE TIME OF ENTRY. R2 CONTAINS THE EXPECTED RKDA. 

CHKDAt CMP R2.?R(C0A (DID RKDA INCREMENT CORRECTLY? 

BFO COMRET (YES 

MOV R2.IREG0 (GET EXPCTD RKDA 

NOV HRKDA.SREGl (GET RKOA RECVD 

RTS PC (RETURN TO THE ERROR MESSAGE 

(CHKBA 

(THIS ROUTINE CHECKS XF RKBA INCREMENTED CORRECTLY. IF NOTt RETURN IS MADE 
(TO Thf. ERROR MESSAGE FOLLOWING THE JSR C»LL. IF VESr RETURN IS MAqE TO 
(SKIP OVER THF ERROR MESSAGE. 

(AT THE TIME OF ENTRY, R3 CONTAINS THE WORD COUNT C» OF WORDS TRANSFERRED) 
(R4 CONTAINS THE BUS ADDRESS WHERE THE TRANSFER STARTED, 

CHKBA: 



CLC 






HOL 


R3 


(FORM THE GXPCTD BUS ADDRESS 


ADD 


R3,r4 




CLC 






ROR 


R3 




CMp 


r4,9RKBA 


(DID RKBA INCREMENT CORRECTLY? 


BEO 


COMRET 


(YES 


MoV 


R4,$REG0 


(GET EXPCTD RKBA 


RTS 


PC 


(RETURN TO THE EROR MESASE 


MOV 


DRKBA, SREGI 


(GET RKBA RECVO 



(CHKMEX 

[THIS ROUTINE CHECKS THAT RKBA OVERFLOWED AND mEX BIT WAS SETiN RKCS EBIT 4) 

(IF RKBA OVERFLOWED CORRECTLY, THE RETURN ADDRESS IS ADJUSTED TO SKIP THE 
(ERROFl MESSAGE ON RETURN. 



CHKMEX! MOV 
BIC 
CMP 
BEO 
JSR 
RTS 



9RKCS,-C3P3 
»177717, (SP) 
»BIT4, (SP)+ 
COMRET 
PC,GT4RG 
PC 



(GET RKCS 
(GET MEX BITS 4,5 
(CHECK BIT 4 SET? 
(YES, OK 

(SAVE RKCS, ER, OS, DA 
(RETURN 
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3936 






3937 






39 38 






3939 






3940 






3941 


020136 


005777 


39 42 


020142 


001424 


3943 


020144 


017737 


3944 


020152 


017737 


3945 


020160 


000207 


3946 






3947 






3948 






3949 






3950 






3951 






39?2 






3953 






3954 


020162 


032777 


3955 


020170 


00101 1 


395b 


020172 


004737 


3957 


02017b 


000207 


3958 






3959 






3960 






3961 






3962 






3953 






1964 






3965 


020200 


105777 


3966 


020204 


100403 


3967 


020206 


004737 


3968 


020212 


000207 


3959 






3970 


020214 


062716 


3971 


020220 


000207 



161060 
161046 



001162 
001164 



000100 
021740 



161016 
021740 



(CHKWC 

(THIS ROUTINE CHECKS IF rKWC OVERFLOWED CORRECTLY AFTER A DATA TRANSFER 
(IF IT DID NOT, RETURN IS MADE TO THE ERROR MESSAGE. IF IT DID, RETURN I5 
(MADE TO SKIP OVER THE ERROR MESSAGE. 



CHKWC: 



TST 
BEQ 
MOV 
MOV 
RTS 



RRKWC 

COMRET 

eRKDA,$REG0 

RRKWCSREGl 

PC 



(RKWC OVERFLOWED? 
(YES 



(RETURN TO THE EROR MESAGE 



(CHKRWS 

(THIS ROUTINE CHECKS IF R/W/S RDY BIT IN RKDS IS SET. IF IT IS NOT SET RETURN 
(IS MADE TO THE ERROR MESSAGE FOLLOWING THE JSR CALL. IF IT IS, THE RETURN 
(ADDRESS IS ADJUSTED TO SKIP OVER THE ERROR MESSAGE ON RERTORN. 

CHKR^IS: BIT tRMS><>RKDS (RWS ROY SET? 

BNE COMRET (YES 

JSR PC,GT4RG (GET RKCS, ER, OS, DA 

RTS PC (RETURN TO THE ERROR MESSAGE 

(CHKCRDY 

(THIS ROUTINE CHECKS IF CONTROL READY BIT IN RKCS IS SET. IF IT IS NOT, 
(RETURN IS MADE TO THE ERROR MESSAGE FOLLOWING THE JSR CALL, IF IT IS, 
(RETURN ADDRESS IS ADJUSTED TO SKIP OVER THE ERROR MESSAGE. 



CHKCRDY! TSTB HRKCS 

BMI COMRET 

JSR PC,GT4RG 

RTS PC 



COMRET! ADD 
RTS 



»2, tSP) 
PC 



(CONTROL READY SET? 
(YES 

(GET RKCS, ER, OS, OA 

(RETURN TO THE EROR MESAGE 

(ADJUST RETURN ADDRESS TO SKIP OVER MESAGE 
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3972 
3973 
3974 
3975 
3976 
3977 
3978 
3979 
3980 
39R1 
3982 
3983 
3984 
3985 
3986 
3987 
3988 
3989 
3990 
3991 
3992 
3993 
3994 
3995 
3996 
3997 
3998 
3999 
4000 
4001 
4002 
4003 
4004 
4005 
4006 
4007 
4008 
4009 
4010 
401 1 
4012 
401 3 
4014 
4015 
4016 
4017 
4018 
401 9 
4020 



020222 
020230 
020234 
020240 
020244 

020246 
020254 

020256 
020262 
020270 
020276 

020300 
020304 
020306 
020312 

020316 
020324 
020332 



PI12737 
017746 
004737 
052637 
000424 

012737 
000420 

011037 
042737 
052737 
000407 

005037 
010046 
162716 
052637 

013737 
013737 
000207 



100400 
160774 
022076 
001512 



140000 001512 



001512 
177770 
100200 



001306 
001512 



001462 
001512 



001512 
00] 512 



001464 
001462 



(THIS ROUTINE KEEPS R HISTORY OF THE COOMANDS THAT ARE BEING EXECUTED 
»0N THE RKll, 'PHSFNC* CONTAINS INFORMATION ABOUT THE PRESENT COMMAND 
(WHICH IS ABOUT TO BE INITIATED, 'PSTrNC' CONTAINS INFORMATION ABOUT THE 
(COMMAND THAT WAS EXECUTED BEFORE THIS NEW ONE. THERE ARE MULTIPLE POINTS 
[OF ENTRY DEPENDING ON THE TYPE OF COMMAND BEING PRESENTLY INITIATED: 

(DRCMND - ENTERED WHEN A DRIVE RESET IS BEING INITIATED. DRIVE « IS SAVED 
(IN BITS 0-2 OF 'PRSCMND' AND BIT 8 IS SET, 

(CRCMNO • ENTERED WHEN A CONTROL RESET IS BEING INITIATED. BIT 14 OF 
('PRSCMND' IS SET. 

(POSCMND - ENTERED WHEN A POSITIONING SEEK IS BEING INITIATED, BITS 0-2 
(CONTAIN THE DRIVE NUMBER ON WHICH THE POSITIONING SEEK WAS DONE. ALSO 
(BIT 7 IS SET, 

(IN ALL ABOVE CASES BIT 15 OF 'PRSCMNO' IS SET, 

(FNCMND - ENTERED WHEN A COMMAND OTHER THAN ANY ONE OF THE ABOVE IS BEING 
(INITIATED (EX( READf WRITE. ETC). 

(THE OFFSET TO THE COMMAND KEY (BASE»KEY) IS SAVED IN BITS 0-3 OF 'PSRCMND' 

(IT SHOULD BE NOTED THAT CONTENTS OF 'PRSFNC' ARE PUSHED INTO 'PSTFNC' 
(AND SAVED* BEFORE PUTTING INFO ABOUT THE PRESENT COMMAND IN 'PRSFNC'. 



(R0 CONTAINS ADDRESS OF THE COMMAND KEY. AT THE TIME OF ENTRY. 

(SAVE DRIVE « 



DRCMND! MOV 
MOV 
JSP 
BIS 
BR 

CBCMND! HOV 
BR 



BIC 
BIS 

BR 



FNCMNOI CLR 
Pi; MOV 
SUB 
BIS 



P2: 



MOV 
MOV 
RTS 



•BIT15+BIT8,QFN: 
SRKDA.-CSP) 
PC.CROTLF 
(SP)+,QFNC 
P2 

*BIT15+BIT14,QFNC 
P2 

MOV (R0),OFNC 
«177770,QFNC 
»BIT15*BIT7,QFNC 
P2 

QFNC 

R0.-(SP) 

#KEY.(SP) 

(SP)+.aFNC 

PRSFNC, PSTFNC 

OFNC.PRSFNC 

PC 



(GET DRIVE NO. 
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4021 
4022 
4023 
4024 
4025 
4026 
4027 



(HISTRY 

(THIS ROUTINE TYPES OUT INFORMATION ABOUT THE FUNCTION THAT WAS 
(BEING PERFORMED ON THE RK AT THE TIME OF ERROR AND THE FUNCTION 
(THAT WAS PERFORMED JUST BEFORE THAT FUNCTION (WHICH LED TO 
(THE ERROR). THIS ROUTINE IS CALLED WHEN AN ERROR OCCURS AND SW 12 
(IS SET. 



4028 


020334 


010046 




histry: 


MOV 


R0,-(SP] 




4029 


020336 


010146 






MOV 


R1,-CSP) 




4030 
















4031 


020340 


012700 


001462 




MOV 


iiPRSFNC.R0 




4032 


020344 


104401 


020654 




TYPE 


,MH1 




4033 


020350 


104401 


020700 




TYPE 


«MH3 




4034 


020354 


104401 


020670 




TYPE 


>MH2 




4035 


020360 


005710 




6Sl 


TST 


(R0) 




4036 


020362 


100053 






BPL 


3$ 


(READ, READ CHECK, WRITE. 


4037 


020364 


105710 






TSTB 


(R0) 




4018 


020366 


100427 






8MI 


2$ 


(POSITIONING (SEEK) 


4039 


020370 


032710 


040000 




BIT 


«BIT14,(R0) 




4040 


020374 


001014 






BNE 


It 


(CONTROL RESET 


4041 
















4042 


020376 


104401 


020404 




TYPE 


.65$ 


((TYPE ASCIZ STRING 


4043 


020402 


000410 






BR 


64t 


((GET OVER THE ASCIZ 


4044 








( (6SI( 


.ASCIZ 


/DRESET ON DRV 


/ 


4045 


020424 






64$: 








4046 


020424 


000425 






BR 


7t 




4047 
















4048 


020426 






it! 








4049 


020426 


104401 


020434 




TYPE 


.67$ 


((TYPE ASCIZ STRING 


4050 


020432 


000404 






BR 


b6t 


((GET OVER THE ASCIZ 


4051 








( (67$: 


.ASCIZ 


/CRESET/ 




4052 


020444 






66$! 








4053 


020444 


000463 






BR 


4t 




4054 
















4055 


020446 






2$l 








4056 


020446 


104401 


020454 




Type 


.69S 


: (Type asciz string 


4057 


020452 


000412 






BR 


68t 


((GET OVER THE ASCIZ 


4058 








( (69$: 


.ASCIZ 


/POSITIONING DRIVE / 


4059 


020500 






6831 








4060 


020500 


011046 




7$( 


MOV 


tR0),-(SP) 




4061 


020502 


042716 


177770 




BIC 


#177770, (SP) 


(TYPE DRIVE NO. 


4062 


020S06 


104402 






TYPOC 






4063 


020510 


000441 






BR 


4t 




4064 
















4065 


020512 


011001 




3$l 


HOV 


(R0},R1 




4066 


020514 


016101 


002032 




MOV 


PCMMD(R1).R1 


(GO TYPE OUT THE FUNCTION 


4067 


020520 


016104 


000002 




MoV 


2(R1],R4 


(BEING PERFORMED 


4068 


020524 


004737 


021644 




JSR 


PC.TYPFN 




4069 


020530 


104401 


020536 




TYPE 


.71$ 


((TYPE ASCIZ STRING 


4070 


020534 


000403 






BR 


70t 


((GET OVER THE ASCIZ 


4071 








{(71S! 


.ASCIZ 


<1S><12>/DS3/ 




4072 


020544 






■'011 








4073 


020544 


011146 






MOV 


(R1),-CSP) 


(TYPE OUT DISK ADDRESS 


4074 


020546 


104402 






TYPOC 






4075 


020550 


104401 


320556 




TYPE 


,731 


((TYPE ASCIZ STRING 


4076 


020554 


000403 






8R 


72$ 


((GET OVER THE ASCIZ 
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SEQ 0106 



4077 










J j73s: 


• ASCIZ 


/ BAa/ 


4078 


020564 








72$ 1 






4079 


020564 


016146 


000006 






MOV 


6(Rl)f*(SPj 


4080 


020570 


1 04402 








TYPOC 




408 1 


020572 


104401 


030600 






TYPE 


t f09 Jlllrt. AoClA dXKXNu 


4082 


020576 


000403 








BR 


74S *|GET OVER THE ASCIZ 


4083 










; 1 75$ : 


.ASCIZ 




4084 


020606 








74$ 1 






4085 


020606 


016146 


000004 






MOV 




4086 


020612 


1 04402 








TYPOC 




4087 
















4088 


020614 


020027 


001 464 




4$ ; 


C^P 


R0. IPSTFNC 


4089 


020620 


001410 








BEO 


5$ 


4090 


020622 


005720 








TST 


C R0 ) + 


4»91 


020624 


104401 


020654 






TYPE 


» MHI 


4092 


020630 


1 04401 


020703 






TYPE 


t HH4 


4093 


020634 


104401 


020670 






TYPE 


> WH2 


4094 


020640 


000647 








BB 


6$ 


4095 


020642 


104401 


001213 




5$ ; 


TYPE 


1 SCRLF 


4096 


020646 


012601 










t SP) t f Rl 




02065 


a 1 Acid 
Iff I 








<<0V 


C SP ) ^ y R0 


4i»98 


020652 


000207 








PTS 


PC 


4099 


020654 


005015 


052506 


041516 


MHi : 


.ASCIZ 


<15><12>/EUNCTI0N / 


4100 


020662 


044524 


047117 


000040 








4101 


020670 


042440 


051 122 


051 1 17 


MH2: 


.ASCIZ 


/ ERROR / 


4102 


020676 


000040 












4103 


020700 


052101 


000 




MH3: 


.ASCI7 


/AT/ 


4104 


020703 


120 


044522 


051117 


MH4: 


.ASCIZ 


/PRIOR TO/ 


4105 


020710 


052040 


000117 










4106 












.EVEN 
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4107 








(STATSTC 






4108 








;AT THE TIME 


OF ENTRY Rl CONTAINS THE DRIVE NUMBER FOR WHICH THE STATISTIC 


4109 








JIS TO BE OBTAINED. r5 CONTAINS THE POINTER TO THE PARAMETER TABLE. FOR 


4110 








;THE COMMAND 


EXECUTED ON THE 


ABOVE DRIVE. R4 CONTAINS THE FUNCTION CODE 


4111 








;(WRITE, READ 


, ETC3 FOR WHICH 


STATISTICS ARE TO BE TAKEN. 


4112 














4113 


020714 


010046 




statstc:mov 


R0,-(SP3 


JPUSH R0, R2, R3 ONTO THE 


4114 


020716 


010246 




MOV 


R2,-(SP3 


;STACK 


4115 


020720 


010346 




MOV 


R3,-(SP3 




4116 














4117 


020722 


005002 




CLR 


P2 




4118 


020724 


005701 




TST 


Rl 


JORIVE 0? 


4119 


020726 


001404 




BEO 


2$ 


rFORH THE OFFSET FOR THE 


4120 


020730 


062702 


000004 


IS; ADD 


*4,R2 


; 'WORDS XFERRED COUnTS'- 


4121 


020734 


005301 




DEC 


Rl 


JNWRTL, NRDL 


4122 


020736 


001374 




BNE 


IS 




4123 


020740 


016500 


000004 


2$: MOV 


4(R53,R0 


;GET WORD COUNT (RKWC) FROM 


4124 


020744 


005400 




NEG 


B0 


JTHE PARAMETER TABLE 


4125 














4126 


020746 


005777 


160250 


TST 


aPKCS 


;ANY ERROR DURING THE XFER7 


4127 


020752 


100004 




8PL 


3$ 




4128 












;YES, 


4129 


020754 


017703 


160244 


MOV 


BRKWC.R3 


;GET THE # OF WORDS THAT 


41 30 


020760 


005403 




NEG 


R3 


JMERE ACTUALLY X-FERRED 


4131 


020762 


160300 




SUB 


R3,R0 




4132 














4133 


020764 


022704 


000002 


3S! CMP 


»2,R4 


;WRITE FUNCTION? 


4134 


020770 


001005 




BNE 


5S 




41 35 












TYESf ADD THE » OF WORDS 


4136 


020772 


060062 


001732 


4$: ADD 


P0,NWRTL(R23 


;XFEBREO (WRITE3 


4137 


020776 


005562 


001734 


ADC 


NWRTH(R2) 


JNOTE IT'S 2-WORD COUNT LO, HI 


4138 


021002 


000404 




BR 


6S 




41 39 














41 40 


021004 


060062 


001772 


5$: ADD 


R0>NROL(R23 


;ADD the » OF WORDS READ 


4141 












;NOTE that WRT CHKi 


4142 












;READ CHK ARE ALSO CONS- 


4143 












;IDERED TO BE 'READ' 


4144 


021010 


005562 


001774 


ADC 


NRDH(R2) 


JCARRY OVER TO THE HI WORD 


1145 














41 46 


021014 


012603 




6$: MOV 


(SP)+,R3 


JPOP R3,R2,R0 FROM THE STACK 


4147 


021016 


012602 




MOV 


(SP3+,R2 




4148 


021020 


012600 




MOV 


CSP)'f>R0 




4149 


021022 


000207 




PTS 


PC 
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4150 








;REPSI»T 




4151 








JTHIS ROUTINE 


REPORTS ERROR STATISTICS AND DATA-TRANSFER STATISTICS. 


4152 












4153 


021 024 


104401 


002377 


REPSTM TYPE 


, MSG26 


4154 


031030 


013700 


001264 


HOV 


DRVPRSi R0 


4155 


021034 


012701 


001254 


MOV 


IPORfRl 


4156 












4157 


021040 


104401 


001213 


111 TYPE 


1 tCRVT 


4158 


021044 


112102 




HOVB 


1(H)*, ni 


4159 


021046 


042702 


177770 


BIC 


1177770. R2 


4160 


021052 


010246 




NOV 


R3.>(SP} 


4161 


021054 


104403 




TYPOS 




4162 


021056 


003 




.BYTE 


3 


4163 


021057 


000 




.BYTE 





4164 


921060 


1 04401 


002662 


TYPE 


rBLNKS3 


4165 












4166 


021064 


003004 




CLP 


R4 


4167 


021066 


010203 




HOV 


R2.R3 


4166 


021070 


001404 




BEO 


3$ 


4169 


021072 


062704 


000004 


3ti ADD 


44, R4 


41 70 


021076 


005303 




DEC 


R3 


4171 


021 100 


001 374 




BNE 


31 


4172 












4173 


021 102 


104401 


002664 


3tX TYPE 


1 BLNKSl 


4174 


021 106 


010446 




MOV 


R4f-(SP} 


4175 


021 1 10 


062716 


001732 


ADD 


f NHRTLi (SP) 


4176 


021114 


004737 


024512 


JSR 


PC. $DB2D 


4177 


021 120 


004737 


024722 


JSR 


PCrSUPRS 


4178 


021 124 


104401 


002664 


TYPE 


1 BLNKSl 


4179 


021130 


010446 




HOV 


R4.-(SP) 


4180 


021132 


062716 


001772 


ADD 


(Hr.DL. CSP) 


4191 


021136 


004737 


024512 


JSR 


PC. tDB2D 


4182 


021 1 42 


004737 


024722 


JSR 


PC> SUPRS 


4183 












4184 


021 146 


006302 




ASL 


R2 


4185 












4186 


021150 


104401 


002664 


TYPE 


, BliNKSl 


4187 


021154 


016246 


001652 


MOV 


CSe:cN(R2) .-(SP) 


4188 


021 1 60 


104405 




TYPDS 




4189 












41 90 


021 162 


104401 


002664 


TYPE 


t BLNKSl 


4191 


021166 


016246 


001 632 


MOV 


>':ecncr2) i-csp) 


41 92 


021172 


104405 




TYPDS 




4193 












4194 


021 174 


104401 


003664 


TYPE 


f BLNKSl 


4195 


021200 


016246 


001712 


HOV 


DATERCR2) .'CSP) 


4196 


021204 


042716 


100000 


BIC 


•100000. (SP) rDONT TYPE A NEGATIVE NOi 


4197 


021210 


104405 




TYPDS 




41 98 












4199 


021212 


104401 


002664 


TYPE 


>BLNKS1 


4200 


021216 


016246 


001562 


HOV 


he:n(r2),-(sp) 


4201 


021222 


104405 




TYPDS 




4202 












4203 


021224 


005300 




DEC 


R0 IFINISHED HITH THE DRIVES ? 


4204 


021226 


001304 




BNE 


IS IBR IF NOT 


4205 


021230 


104401 


002474 


TYPE 


.MSG26A ;REST OF SUMMARY MESSAGE 
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4206 


021334 


013700 


001264 


MOV 


DRVPRS,R0 


INUHBER OP DRIVES 

; 'DRIVES PRESENT' TABLE ADDRESS 


4207 


021240 


012701 


001254 


HOV 


tPDR.Rl 


4308 


021244 


104401 


001213 


4$) TYPE 


f tCRLF 


ICR-LF 


4209 


031250 


112102 




HOVB 


(R1)+.R2 


>DRIVE ADDRESS 


4210 


021252 


042702 


177770 


BIC 


1177770, R2 


(LEAVE ONLY DRIVE HUHBER 


4211 


021256 


010246 




MOV 


R2,-(SP} 


JPUI ON STACK rOR TYPEOUT 


4212 


021260 


104403 




TYPOS 




itYPE IT IN OCTAL 


4213 


021363 


003 




.BYTE 


3 


(TYPE 3 CHARACTERS 


4314 


031363 


000 




.BYTE 





(SUPRESS LEADING lEROS 


4315 


031264 


104401 


002662 


TYPE 


•BLNKS3 


ti BLANKS 


4216 


021270 


006302 




ASL 


R2 


ICONVERT TO A WORD TABLE INDEX 


4317 


021272 


104401 


002664 


TYPE 


(BLNKSl 




4318 


021276 


016246 


001602 


HOV 


SKECN(R3) >-CSPl 




4319 


021302 


104405 




TYPDS 






4230 














4331 














4222 


021304 


104401 


002664 


TYPE 


.BLNKSl 




4233 


021310 


016246 


001672 


HOV 


ABORI(R2),-(SP3 




4224 


031 314 


104405 




TYPDS 






4335 














4226 


031316 


006203 




ASP 


R2 




4227 


031320 


104401 


002664 


TYPE 


.BLNKSl 




4228 


021324 


116246 


001622 


HOVB 


SIHCNCR2)«-CSP) 




4239 


021330 


104405 




TYPDS 






4230 














4231 


021332 


005300 




DEC 


R0 




4232 


021334 


001343 




BNE 


4* 




4233 


031336 


004737 


026556 


JSR 


PCiTIMTYP 


■TYPE THE TIME 


4234 


031342 


000207 




RTS 


P" 
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SEQ 0U0 



42 J5 










4236 










4237 










4238 










4239 










4240 










4241 










4242 










4243 










4244 










4245 










4246 










4247 










4248 










4249 










425<) 










4251 










4252 


021344 


005046 






4253 


021346 


012746 


021354 




4254 


021352 


000002 






4255 










4256 










4257 










4258 










4259 










4260 










4261 










4262 










4263 


021 354 


005237 


001 460 




4264 


021 360 


001 456 






4265 


021 362 


105777 


157634 




4266 


021 366 


100514 






4267 










4268 


021 370 


005037 


001466 




4269 


021374 


01 2737 


177761 


00 14 70 


427H 










4271 


021 402 


105737 


001534 




4272 










4273 










4274 










4275 










4276 










4277 


021406 


001507 






4278 


021410 


005237 


001466 




4279 


021414 


001 372 






4283 


021416 


005237 


001 470 




4281 


021 422 


001367 
















4283 










4284 










4285 


021424 


113700 


001534 




4286 


021430 


042700 


177760 




4287 


021434 


010003 






4288 


021436 


062700 


001306 




4289 


021 442 


011037 


00U72 




4290 


021446 


342737 


177770 


001172 



JSTATUS 

:thts routine is norha[,ly entered when the program is waiting for the 
;controiiler to finish khat it is doing. there are tmo double precision 
jcounts kept in this routine, 
jcicnt.cicnti 

;THIS count KEEPS TRACK OF MOM LONG THE CONTROLLER HAS BEEN BUSY AFTER 
jA COMMAND WAS INITIATED, THE CONTROLLER SHOULD FINISH WHATEVER IT IS DOING 
JBEFORE THIS COUNT EXPIRES. IF IT DOES NOT, THERE IS AN ERROR CONDITION AND 
J IT IS 50 REPORTED. 

;OSCNT 

ITHIS COUNT IS INITIALIZED EVERY TIME B COMMANDS ARE GENERATED. THE COUNT 
J IS INCREMENTED EVERY TIME THIS ROUTINE IS ENTeREDi ALL THE 8 COMMANDS 
:SHOULD BE DONE BEFORE THIS COUNT EXPIRES. IF THEY 00 NOT AN ERROR CONDITION 
{IS REPORTED. THIS COUNT HAS BEEN KEPT PRIMARILY TO INSURE THAT THE PROGRAM 
JDOES NOT GET CAUGHT IN AN INDEFINITE LOOP, BECAUSE OF AN ERROR CONDITION. 



status: CLR 

MOV 
RTI 



INC 
BEO 
TSTB 
BHI 

CLR 
MOV 



BEQ 
INC 
BNE 
INC 
BNE 



MOVB 

BIC 

MOV 

ADD 

MOV 

BIC 



-CSP) 
»1$,-CSP) 



QSCNT 
OEROR 
9RKCS 
CNOBSY 

CICNT 

»-17,CICNTl 



SEXIT 

CICNT 

C8SY 

CICNTl 

CBSY 



IHTFLG,R0 

»17776a,R0 

R0,R3 

«KEY,P0 

(R01 , SREG4 

«177770,SREG4 



JDROP PRIORITY AND WAIT FOR INT 

JRETURN FOR RTI 

JNOTE THAT THE INTERRUPTS ARE ALLOWED ONLY 
>AT CERTAIN PLACES IH THE PROGRAM, BECAUSE 
;IT MAKES TROUBLESHOOTINOOFFALIURES EASY. 
; OTHER PLACES WHERE ifiTERKUi'TS ARE ALLOWED 
!T0 TAKE place: 

;'CHFAFN'» FIRST INTERRUPT AFTER ISSUING 
(A SEEK FUNCTION, 



!FOR A NON-SEEK COMANOt 

;INTFLG- BIT 7 Is SET, BITS 0-3 CONTAIN 
(OFFSET TO THE COMMAND KEY (FROM KEY), 
;FOR WHICH THIS INTERUPT IS EXPCTD. 
(WHEN THE INTERUPT OCCURS fc 'INTHND' IS 
JENTERED 'INTFLG' IS CLEARED. 



JTIMED OUT WHILE WAITING FOR THE INTRUPT. 
;ONE OF THE COMMANDS DID NOT INTERRUPT 



MAINOEC-1 1-DZRKH-F MACYU 27(1006) 04-OCT-76 13:29 PAGE 98 

DZRKHF.Pll 22-SEP-76 08:57 ROUTINE TO SIZE MEMORY 



42<jl 


021454 


013737 


4292 






4293 


021462 


104421 


4294 


021466 


016305 


4295 


021472 


016504 


4296 


021476 


004737 


4297 


021502 


004737 


4298 


021506 


104025 


4299 






4300 


021510 


052710 


4301 


021514 


000444 


4302 






4303 






4304 


021516 


005037 


4 305 


021522 


004737 


4306 


021526 


104026 


4307 






4308 






4309 






4310 






431 1 






4312 






4313 






4314 






4315 


021530 


032777 


4316 


021536 


001024 


4317 


021540 


104401 


4318 


021544 


012700 


4319 


021550 


012701 


4 320 


021554 


012702 


4321 


021560 


104401 


4322 


021564 


012046 


4 J23 


021566 


104402 


4 374 


021570 


104401 


4 325 


021574 


005^46 


4526 


021576 


112116 


4327 


021600 


104403 


1328 


021602 


003 


4 329 


021603 


1*00 


4330 


021604 


005202 


4331 


021606 


001364 


4332 






4333 


021610 


004737 


4J34 






4 3»S 


021614 


0001 37 


4336 






4337 


021620 


005004 


4338 


021622 


005204 


4339 


021624 


001 376 


1340 


021626 


013746 


4341 


021632 


012746 


4342 


021636 


000002 


4343 






4344 


021640 


000137 



001172 001250 

002245 
002032 
000002 
021b44 
021740 



001460 
021740 



020000 157402 

002305 
001306 
001426 
177770 
001213 



015714 
010536 



001244 
021640 



MOV 

TYPMSG 

MOV 

MOV 

J5R 

JSR 

ERROR 

BIS 



CLR 
JSR 
ERROR 



;GET DRIVE «. FOR TYPING SERIAL » 
;PRINT 'DRVE » DIDN'T INTRUPT AFTER* 



8REG4,SRDRV 

.MSG15 
PCMNDCR3),R5 
2(R5),R4 
PCTYPFN 
PC,GT4RG 

2S ;C0MMAND typed out IN EROR MESAGE DID 

JNOT INTERUPT ON COMPLETION. 
IBIT15+BIT11,(R0) : INDICATE THAT FUNCTION IS ABORTED 

SEXIT 



OSCNT 

PC,GT4RG 

26 



{REESTABLISH COUNT 

;ALL 8 COMMANDS SHOULD BE DONE BY NOW, TIMED 
;OUT. THE PROGRAM IS WAITING FOR ONE OF THE 
{COMMANDS IN THE Q TO BE FINISHED AND THIS 
{DID NOT HAPPEN OR FOR SOME OTHER REASON THE 
{'FINISHED' FLAG (BIT 15) OF ONE OF THE 8 
{COMMAND KEYS WAS NOT SET. VARIOUS FLAGS 'POS'C-?) 
{'BUSY'(-7), 'KEY'C-S) CONTAIN INFORMATION 
{ABOUT THE STATUS OF THE SYSTEM. 



BIT 


>SW13,9SWR 


{INHIBIT TYPEOUT? 


BNE 


2$ 


{YES 


TYPE, 


MSG16 




MOV 


tKEY,R0 




MOV 


«BUSY,R1 




MOV 


*-10,R2 




TYPE 


fSCRLF 




MOV 


CR0)+,-(SP) 


{TYPE OUT CONTENTS OF ALL KEYS 


TYPOC 




{KEY-KEY8 


TYPF 


,BLNKS3 




CLR 


-(SP) 




MOVB 


CR1)+, CSP) 


{TYPE OUT CONTENTS OF ALL BUSY FLAGS 


TYPOS 




;BUSY-BUSy7 


.BYTE 


3 




.BYTE 







INC 


R2 


{DONE? 


BNE 


IS 


{NO 


JSR 


PCCLRERR 


{MAKE SURE THERE' IS NO HEAD MOVEMENT 






{ANY DRIVE & THEN DO CONTROL RESET 


JMP 


BEGnEX 


;50f BAK AND CONTINUE 


CLR 


R4 




IMC 


R4 




BNE 


.-2 




MOV 


PPRLVL,-(SP) 




MOV 


tRTlPC7,-(SP) 


{RETURN FOR RTI ••••••»•••• 


RTI 






JMP 


OMNGER 
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4346 JROUTINE TO TYPE OUT THE FUNCTION (READ » WRIIE» ETC ) IR* CONTAINS THE 



4347 








^FUNCTION CODE 


AI THE TIME OF 


ENTRY. 










; SW 1 3 > 


IF SET 


INHIBITS TYPEOUT. 


4349 
















4350 


021644 


032777 


020000 157266 


T IPFN 1 


BIT 


• SMI 3 f pSWR 


^INHIBIT TYPEOUT* 




021652 


00 1031 






BNE 


5S 


) YES 


4l«i 


021654 


020427 


000002 






R4r i2 


; WRITE? 




021660 


001 002 






BNE 


1 S 




4354 


021 662 


1 04401 


0021 33 




TYPE 


(MSC6 




4355 


021666 






1 1 1 


CMP 


• 4 » R4 


; READ? 




021672 


001 002 






BNE 


2t 




435 ' 




104401 


002141 






f MSG7 




4358 


021700 


022704 


000012 


2$l 


CMP 


*12>R4 


IREAD CHECK? 


4359 


021704 


001002 






BNE 


3$ 




4360 


021706 


104401 


002156 




TYPE 


>MSG9 




4361 


021712 


022704 


000006 


3$l 


CHP 


*6,R4 


;*B1TE CHECK? 


4362 


021716 


001002 






BNE 


4$ 




4363 


021720 


104401 


002146 




TYPE 


(MSGS 




4364 


021724 


022704 


000010 


4$: 


CMP 


»10>R4 


;SEEK7 


4365 


021730 


001002 






BNE 


5$ 




4366 


021732 


104401 


002201 




TYPE 


,MSG11 




4367 


021736 


000207 




5$: 


RTS 


PC 





HAINOEC-1 1-DZBKH-F MACYll 27(1006) 04-OCT-76 13j29 PAGE 100 

DZRKHF.Pll 32-SEP-76 CB«57 ROUTINE TO SIZE MEMORY 



4368 










;GT4RG 




4369 










JGET CONTENTS 


OF RKCS» RKEP. RKOS» RKOAA 


4370 














4371 


021740 


017737 


157264 


001 170 


GT4HG! MOV 


|iRKDA,tREG3 


4372 


021746 


017737 


157250 


001 162 


GT3BGI MOV 


0RKCS>«ReG0 


4373 


021754 


017737 


157240 


001164 


MOV 


»RKER,tREGl 


4374 


021762 


017737 


157230 


001 166 


HOV 


eRKDS,IREG3 


4375 


021770 


000207 






BTS 


PC 


4376 














4377 














4378 










JGETINF 




4379 










fTHIS ROUTINE 


GETS CONTENTS OF RKCE, RKER» RKDS. THEN IT BREAKS 


4390 










;contents OF 


RKD* INTO ITS COMPONENT! CYLINDER* SECTORf SURFACE 


4381 










fNUMBER. 




4382 














4393 


021772 


004737 


021746 




GETINFJ JSP 


PC»GT3RG 


4384 


021776 


010046 






MOV 


R0CCSP) 


4395 


022000 


010146 






HOV 


R1,-(SP) 


4396 


022002 


010346 






MOV 


R2f(SP) 


4397 


022004 


012700 


001200 




MOV 


*$REG6'f2,R0 


4398 


022010 


017701 


157214 




MOV 


9RKDArRl 


4399 


022014 


010102 






MOV 


R1|R2 


4390 


022016 


042702 


177760 




BIC 


#177760, R2 


4391 


022022 


010240 






HOV 


R2,-(R0) 


4392 


022024 


006201 






ASR 


Rl 


4393 


022026 


006201 






ASR 


Rl 


4394 


022030 


006201 






ASP 


Rl 


4395 


022032 


006201 






ASR 


Rl 


4396 


022034 


010102 






MOV 


R1,R2 


4397 


022036 


042702 


177776 




BIC 


#177776»R2 


4398 


022042 


010240 






MOV 


R2r-(Ra) 


4399 


022044 


006201 






ASR 


Rl 


4400 


022046 


010102 






MOV 


Rlf R2 


4401 


022050 


042702 


177400 




BIC 


«177400,R2 


4402 


022054 


010240 






MOV 


R2,-(R0) 


4403 


022056 


000301 






SHAB 


Rl 


4404 


022060 


042701 


177770 




BIC 


#177770, Rl 


4405 


022064 


010140 






HOV 


Rl,-(R0) 


4406 


022066 


012602 






MOV 


(SP)+,R2 


4407 


022070 


012601 






MOV 


(SP)+,R1 


4408 


022072 


012600 






MOV 


(SP)+,R0 


4409 


022074 


000207 






RTS 


PC 
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4410 








; CROTLF 






4411 








rLAJjUI nUV 


IN0|*CSP) pPUSH NO, TO BE ROTATED ON STACK 




4412 














44 1 3 










ROTATES BITS 15^ 14f 13 OF A WORD INTO BITS 2f \t fi 


J THE 


4414 








•DFQT nP TUP 1 


BITS OF THE ROTATED WORD ARE CLEARED. 


















4416 














■ ? ^ o 


022076 


042766 


01 nil 000002 




#17777, 2CSP} 




441 8 


022104 


YiVo C \ 




CfjC 






4 419 


0221 06 


006 166 


000002 


ROL 


2 C SP ^ 




4426^ 


0221 1 2 


006X66 


000002 


ROL 


2 ( SP 3 




4421 


022 116 


006 166 


000002 








f 




woo i OD 




rot' 


2 ( SP ) 




4423 


0221 26 






HTS 


PC 




4424 














4425 














4426 








f PG4SDR V 






4427 








/CALLS J5R 


r„ » Ko** aut< V 




442S 








^this routine 






4429 








;TT SAVES THE 


DRTVE NUMBER FROy RKDA IN 'SRDRV i 




44 30 


022130 


0047 3 7 


021 740 


O^A C no a T CD 






4431 




























4433 








?GTSDRV 






4434 








jCALLI jsr 


PC»GTSDRV 




4435 








;THIS ROUTINE 


EXTRACTS THE DRIVE t FROM RKDA (BITS 15,14,13) AND 


SAVES 


4436 








rIT IN •♦SRDRV 


" (SITS 0,1,2) 




4437 














4438 


022134 


017746 


157070 


GTSDRV! MOV 


aRKDA,-CSP) !GET BITS 15,14,13 FROM RKDA 




4439 


022140 


004737 


022076 


JSR 


PC»CROTLF 




4440 


022144 


012637 


001250 


fclOV 


(SP)+, SRDRV ;SAVE THE DRIVE # 




4441 


022150 


000207 




RTS 


PC 
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4442 














.SBTTL 


DRV. RESET - 


DRIVE RESET ROUTINE 


4443 










JDRV. RESET - DRIVE RESET ROUTINE 


4444 










>IF 


R/W/S RDY DOES NOT SET 


WITHIN A CERTAIN TIME OF DOING 


4445 










;AN 


ERROR IS REPORTED. 




4446 




















4447 


022152 


005037 


022262 




DR. 


rst: 


CLR 


TIMOUT 




4449 


022156 


013777 


001S02 


157044 






MOV 


QDRV,BRKDA 




4449 


022164 


012777 


000015 


157030 






MOV 


*15,9RKCS 




4450 


022172 


104417 










CON. RDY 






4451 


022174 


032777 


000100 


157014 


ISt 




BIT 


»100,9RKDS 


;OID R/W/S RDY SET? 


4452 


022202 


001026 










BNE 


2$ 


! YES 


4453 


022204 


012746 


177760 








HOV 


#-20, -(SP) 


;N0, WAIT FOR R/W/S 


4454 


022210 


005216 










INC 


(SP) 




4455 


022212 


001376 










BNE 


.-2 




4456 


022214 


005726 










TST 


(SP) + 




4457 


022216 


005237 


022262 








INC 


TIMOUT 




4458 


022222 


001364 










BNE 


IS 




4459 


022224 


032777 


020000 


156706 






BIT 


«SW13,<>SMR 


;INHIBIT TYPEOUT? 


4460 


022232 


001012 










BNE 


2S 


; YES 


4461 


022234 


104401 


001213 








TYPE 


,SCRIjF 


JIIMED OUT, R/W/S RDY DID 


4462 


022240 


104401 


027644 








TYPE 


,FM4 


;REPORI ERROR 


4463 


022244 


104401 


002206 








TYPE 


,MSG12 




4464 


022250 


01 1646 










MOV 


(SP),-(SP) 




4465 


022252 


162716 


000002 








SUB 


i2, (SP) 




4466 


022256 


104402 










TYPOC 






4467 


022260 


000002 






2St 




RTI 






44<;8 


022262 


000000 






TIMOUT: 
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4469 










.SBTTL 


CON. RESET - 


CONTROL RESET ROUTINE 


4470 










ICON, RESET 






4471 










tCONTROL RESET 


ROUTINE 




4473 










;CON.ROY 






4473 










7C0NTR0L READY 


ROUTINE 




4474 
















4475 


022364 


012777 


000001 


156730 


CN.RSTJ MOV 


*1,»RKCS 




4476 


023272 


005037 


001472 




CN.RDYJ CLR 


TIMER 




4477 


022276 


105777 


156720 




l«t ISTB 


«RKCS 


!D1D CONTROL RDY SET? 


4478 


032302 


100451 






BMI 


21 


I YES 


4479 


023304 


012746 


177750 




MOV 


t-30,-(5P) 


SWAIT FOR CNTRL RDY 


4480 


022310 


005216 






INC 


(SP) 




4481 


022312 


001376 






BNE 


• •3 




4492 


022314 


005726 






TST 


(SP)'f 




4483 


022316 


005237 


001472 




INC 


TIMER 




4484 


022322 


001365 






BNE 


t$ 




4485 


022324 


032777 


020000 


156606 


BIT 


tSW13«0SWR 


JIMHIBIT TYPE0UT7 


4486 


022332 


001035 






BNE 


2* 


;YES 


4487 


022334 


104401 


002206 




TYPE 


rMSG12 


ICNTRL RDY DID NOT SET, REPORT 


4488 


022340 


011646 






MOV 


(SP}r>(SP) 




4489 


022342 


162716 


000002 




SUB 


I2« CSP} 




4490 


022346 


104402 






TYPOC 






4491 


022350 


104401 


022356 




TYPE 


f65t 


;)TYPE ASCIZ STRING 


4492 


022354 


000421 






BR 


64t 


: IGET OVER THE ASCIZ 


4493 










>)65ti .ASCIZ 


<15><12>/CONTR0LLER NOT READY - RKCS«/ 


4494 


022420 








64$l 






4495 


022420 


017746 


156576 




MOV 


»RKCS»-CSP) 




4496 


022424 


104402 






TYPOC 






4497 


022426 


000002 






2$t RTI 







M»lNDEC-ll-OZRKH-r 
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4498 










4499 










4S00 










4501 










4502 










4503 










4504 










4505 


022430 


032777 


020000 


156502 


4506 


022436 


001005 






4507 


022440 


017637 


000000 


022450 


4508 


032446 


104401 






4509 


022450 


000000 






4510 










4511 


022452 


062716 


000002 




4512 


022456 


000002 
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.SBTTL TYPMSC - TYPE MESSAGE ROUTINE (SW13) 

ITYPMSC 

jTHIS ROUTINE IS USED FOR MESSAGE TYPEOUTS. IF SH 13 IS SET THE TYPEOUT 
lis SKIPPED. 



ICALLI 
t 

TY.MSG! 



Itl 
211 



TYPMSG 
POINTER 

BIT 

BNE 

MOV 

TYPE 

.WORD 



*SW13,|ISWP 
21 

«(SP)>1S 



ADD 
RTI 



*2, (SP) 



(POINTER TO THE ASCII MESSAGE STRING 

(INHIBIT TYPEOUT? 
!YES 

;GEI POINTER TO »SCII STRING 



(ADJUST RETURN ADDRESS TO SKIP OVER POINTER 
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SEQ 0118 



451 3 






4514 






4515 






4516 






4517 






4518 






451 9 






4523 






4521 


022460 


005237 


4522 


022464 


001401 


4523 


022466 


000002 


4524 


022470 


012737 


4525 


022476 


005237 


4526 


022502 


001401 


4527 


022504 


000002 


4528 


022506 


012737 


4529 


022514 


005237 


4530 


022520 


001005 


4511 


022522 


012737 


45-)2 


022530 


005237 


4533 






4534 


022534 


300002 


4535 






45 »6 






4537 






4538 






4539 






4540 


022536 


01 3746 


4541 


022542 


005237 


4542 


022546 


001375 


4543 


022550 


005216 


4544 


022552 


001373 


4545 


022554 


005726 


4546 


022556 


000207 


4547 


022560 


177730 


4548 


022562 


000000 



177704 
001556 



177704 
001554 



177704 
001552 



022560 
022562 



.SBTTt, KWSRVE - KWllL CLOCK SERVICE ROUTINE 
>THIS ROUTINE SERVICES THE INTERRUPT FROM THE KWllL LINE CLOCK 
:AND KEEPS TRUCK OF ELAPSED TIME. i 
jKWCOUNT- CONTAINS CYCLES (PER SECOND) CJ'S COMPLEMENT) 
JKWSEC- CONTAINS SECONDS C2'S COMPLEMENT) 
;Kl»MIN- CONTAINS MINUTES C2'S COMPLEMENT) 
JKWHR- CONTAINS HOURS (2'S COMPLEMENT) 



001556 2t: 



KWSRVE! INC 
BEQ 
RTI 

18! MOV 
INC 
BEU 
RTI 
MOV 
INC 
BNE 
MOV 
INC 

RTI 



KWCOUNT 
IS 



!COUNT 60 CPS 
;OVERFLOWED? 



«-60., KWCOUNT JRESET 60 CPS COUNT 



KWSEC 
2$ 

*>60.f KWSEC 

KWMIN 

3$ 

t>60.,K»iMIN 

KWHR 



;COUNT SECONDS 
J OVERFLOWED? 
[RETURN 

;RESET "SECONDS' 
JCOUNT MINUTES 
JOVERFLOWED? 
fRESET "MINUTES" 
JCOUNT HOURS 

[RETURN 



;WATIHE 

SPOUTINE PROVIDES SOME WAITINS TIME. 



WATIME! 


MOV 


28,-CSP) 


[COUNTER VALUE 


IS! 


INC 


3$ 


(COUNT 




BNE 


IS 


sHAnG In THERE UNTIL COUNT WRAPS AROUND 




INC 


CSP) 


[COUNT AGAIN 




BNE 


IS 


[GO THROUGH MINOR LOOP AGAIN 




TST 


(SP) + 


[RESTORE THE STACK POINTER 




RTS 


PC 


[RETURN 


2S: 


.WORD 


177730 


[VALUE FOR APPROX IS SEC DELAY 


3S: 


.WORD 





['MINOR' LOOP COUNTER 
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4549 






1553 






4551 






4552 






4553 






4554 






1555 






4556 






4557 


022564 


005737 


4558 


022570 


001401 


4559 


022572 


000207 


4560 


022574 


104401 


4561 


022600 


004737 


4562 


022604 


012706 


4563 


022610 


000400 


4564 







002225 
022536 



[CHPDRS 

[this poutinf checks if there any drives present con line), if there 

[ape» a Return is made, if thepe are none present, a message is printed out. 

[THE STACK pointer 15 RE-INITIATED TO 1100 AND CONTROL IS TRANSFERRED 
[TO THE END OF PASS ROUTINE, tEOP, BEFORE PASSING CONTROL TO SEOP, SOME 
[TIME IS KILLED (HATIME), THISjJS DONE TO KEEP THE NUMBER OF MESSAGES 
[(END OF PASS »X) TO A SMALL AMOUNT. 



chdpfs; 


TST 


DRVPRS 


[ANY DRIVES PRESENT? 




BEO 


IS 


[NO 




RTS 


PC 


[YES, EXIT 


is: 


TYPE 


,MSG14 


[NO, GIVE A MESSAGE 




JSR 


PC. WATIME 


[KILL SOME TIME 




MOV 


tSTACK,SP 


[REINITIALIZE STACK 




BR 


SEOP 


[GO TO END OF PASS ROUTINE 
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END OF PASS ROUTINE 



SEO 0120 



4565 








.5BTTL 


end of 


PASS ROUTINE 




4566 
















4567 








; ! •#•#♦»«♦»•»••«•»♦»»•»•••«•»•••*»»•*»♦♦••♦»•••»•♦»♦♦♦»»•♦♦•*••#» 


4568 








^•INCREMENT THE PASS NUMBER C$PASS) 


4569 








;»INDICATE END 


-OF-PROGRAM AFTER 


1 PASSES THRU THE PROGRAM 


4570 








!#IF THERES A 


MONITOR GO TO IT 




4571 








!»IF THERE ISN 


'T JUMP TO QMNGER 




4572 
















4573 


022612 






SEOPI 








4574 


022612 


000004 






SCOPE 






4575 


022614 


005037 


001102 




CLR 


STSTNM 


nZERO THE TEST NUMBER 


4576 


022620 


005237 


001 100 




INC 


(PASS 


!» INCREMENT THE PASS NUMBER 


4577 


022624 


042737 


100000 


001 100 


BIC 


1100000, 3PASS 


;>OON'T ALLOW A NEC, NUMBER 


4578 


022632 


005327 






DEC 


CPC) + 


; J LOOP? 


4579 


022634 


000001 




8E0PCT! 


.WORD 


1 




4580 


022636 


003013 






BGT 


SDOAGN 


;»YES 


4581 


022640 


012737 






MOV 


(PC)+#«CPC)+ 


;i RESTORE COUNTER 


4582 


022642 


000001 




jendct: 


.WORD 


1 




4583 


022644 


022634 






SEOPCT 






4584 


022646 


01 3700 


000042 


SGET42J 


MOV 


a»42»R0 


;>GET MONITOR ADDRESS 


4585 


022652 


001405 






BEO 


SDOAGN 


[IBBANCH IF NO MONITOR 


4586 


022654 


00000S 






RESET 




; (CLEAR THE WORLD 


4587 


022656 


004710 




sendad; 


JSR 


PC. CR0) 


JJGO TO MONITOR 


4588 


022660 


000240 






NOP 




;|SAVE ROOM 


4589 


022662 


000240 






NOP 




; (FOR 


4590 


022664 


000240 






NOP 




;?ACTll 


4591 


022666 






Sdoagn: 








4592 


022666 


0001 37 






JMP 


9CPC)+ 


; (RETURN 


4593 


022670 


010556 




sbtnad: 


.WORD 


QMNGER 
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4594 










.S8TTI 


TTY I 


NPUT ROUTIWE 




4595 


















4596 










; ; •«•*•«••••*••«••••**•••«*•••»••«*•••••••««•••»»««*•«••*••••»*«« 


4597 










•ENAHL 


LSB 






4598 


















4599 










; 1 ••••««»••••*•••«•»«•*•««•«•••»••«•*•••••••»*•»•««•••*••***«•*•• 


4600 










(•SOFTWARE SWITCH REGISTER CHANGE ROUTINE. 


4601 










(♦ROUTINE IS 


ENTERED FROM THE 


TRAP HANDLER, AND WILL 


4602 










(•SERVI 


CE THE 


TEST FOR CHANGE 


IN SOFTWARE SWITCH REGISTER TRAP CALL 


4603 










(»WHEN 


OPERATING IN TTY FLAG 


MODE. 


4604 


022672 


022737 


000176 


001 140 


SCKSWR; 


CMP 


iSHREGfSWP 


{(IS THE SOFT-SWR SELECTED? 


4605 


022700 


001074 








BNE 


15S 


((BRANCH IF NO 


4606 


022702 


105777 


156236 






TSTB 


»(TKS 


((CHAR THERE? 


4607 


022706 


100071 








BPL 


15$ 


((IF NO, DON'T WAIT AROUND 


4608 


022710 


1 17746 


156232 






MOVB 


9STKB,-(SP) 


( (SAVE THE CHAR 


4609 


022714 


042716 


177600 






BIC 


»*C177, CSP) 


((STRIP-OFF THE ASCII 


4510 


022720 


022726 


000007 






CMP 


i7, CSP)+ 


((IS IT A CONTROL G7 


461 1 


022724 


001062 








BNE 


15$ 


((NO, RETURN TO USER 


4612 


022726 


123727 


001134 


000001 




CMPB 


$AUT0B,«1 


((ARE WE RUNNING IN AUTO-MODE? 


4613 


022734 


001456 








BEO 


15$ 


((BRANCH IF YES 


4614 
4615 


022736 


104401 


023417 






TYPE 


,$CNTLG 


((ECHO THE CONTROL-G CG) 


4616 


022742 


104401 


023424 




sgtshr: 


TYPE 


,$MSWR 


((TYPE CURRENT CONTENTS 


4617 


022746 


013746 


000176 






MOV 


SWREG,-(SP) 


((SAVE SWREG FOR TYPEOUT 


4618 


022752 


104402 








TYPOC 




((GO TYPE--OCTAL ASCIKALL DIGITS) 


4619 


022754 


104401 


023435 






TYPE 


, tMNEW 


((PROMPT FOR NEW SWR 


4620 


022760 


005046 






19S( 


CLR 


•(SP) 


((CLEAR COUNTER 


4621 


022762 


005046 








CLR 


-CSP) 


( (THE NEW SWR 


4622 


022764 


105777 


156154 




7»( 


TSTB 


a$TKS 


((CHAR THERE? 


4623 


022770 


100375 








BPl 


7S 


( (IF NOT TRY AGAIN 


4624 


















4625 


022772 


117746 


156150 






MOVB 


(a$TKB,-(SP) 


((PICK UP CHAR 


4626 


022776 


042716 


177600 






BIC 


t-Cn7,(SP) 


((MAKE IT 7-BIT ASCII 


4627 


















4628 


















4629 


















4630 


023002 


021627 


000025 




9$! 


CMP 


(SP)»»25 


((IS IT A CONTROL-U? 


4631 


023006 


001005 








BNE 


10$ 


((BRANCH IF NOT 


4632 


023010 


104401 


023412 






TYPE 


,$CNTLU 


((YES, ECHO CONTROL-U ("U) 


4633 


023014 


062706 


000006 




20S( 


ADD 


«6,SP 


((IGNORE PREVIOUS INPUT 


4634 


023020 


000757 








BR 


19$ 


((LET'S TRY IT AGAIN 


4635 


















4636 


















4637 


023022 


021627 


000015 




10»{ 


CMP 


(SPl.tlS 


((IS IT A <CR>? 


4638 


023026 


001022 








BNE 


16$ 


{(BRANCH IF NO 


4639 


023030 


005766 


000004 






TST 


4(SP) 


((YES, IS IT THE FIRST CHAR? 


4640 


023034 


001403 








BED 


11$ 


((BRANCH IF YES 


4641 


023036 


015677 


000002 


156074 




MOV 


2(SP)>»SHR 


((SAVE NEW SWR 


4642 


023044 


062706 


000006 




llt( 


ADD 


*6,SP 


((CLEAR UP STACK 


4643 


023050 


104401 


001213 




14S{ 


TYPE 


,$CRLF 


((ECHO <CR> AND <LF> 


4644 


033054 


123727 


001135 


000001 




CMPB 


$INTAG#I1 


((RE-ENABLE TTY KBD INTERRUPTS? 


4645 


023062 


001003 








BNE 


15$ 


((BRANCH IF NOT 


4646 


023064 


012777 


000100 


155052 




MOV 


*100,a$TKS 


[(RE-ENABLE TTY KBD INTERRUPTS 


4647 


023072 


000003 






15$( 


RTI 




( (RETURN 


4648 


023074 


004737 


024322 




i6S! 


JSR 


PCf $TYPEC 


((ECHO CHAR 


4649 


023100 


021627 


000068 






CMP 


(SP),»60 


( (CHAR < 07 
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SEQ ei22 



4&5f) 


023104 


002420 










BtiT 


18$ 


; ', BRANCH IF YES 




023106 


021627 


000067 








CMP 


(SP) 1 *67 


• ;CHAR > 7? 


46S2 


023112 


00301 S 










BGT 


1 8t 


SJBRANCH if YES 


4653 


023114 


042726 


000060 








BIC 


t60t (SP)t 


MSTRIP-OFF ASCII 


4654 


033120 


005766 


000002 








TST 


2{SP) 


;jIS THIS THE FIRST CHAR 


4655 


023124 


001403 










BEQ 


17S 


J! BRANCH IF YES 


4656 


023126 


006316 










ASL 


CSP) 


;|N0» SHIFT PRESENT 


4657 


023130 


006316 










ASL 


(SP) 


; 1 CHAR OVER TO MAKE 


4658 


023132 


006316 










ASL 


(SP) 


S » ROOM FOR NEW ONE, 


4659 


023134 


005266 


000002 




17S« 


INC 


2(SP) 


riKEEP COUNT or CHAR 




023 1 40 


056616 


177776 








BIS 


-2(SP), (SP) 


J (SET IN NEW CHAR 


4661 




000707 










BR 


7$ 


; )GET THE NEXT ONE 


4662 


023 1 46 


104401 


001212 




ISs: 


TlfPE 


.$QUES 


;)TYPE 7<CR><LF> 


4663 


023152 


000720 










BR 


20$ 


^SIMULATE CONTROL-U 












.DSABL 


LSB 






4hfi5 




















































• •••«»*»>•»•»••»•**»»•»»«•*«•*«•***•»•*»»*••«««•***••**«««*«*«•« 














♦THIS 


ROUT i NE 


WILL INPUT A SINGLE CHARACTER FROM THE TTY 


itiO 












♦CALL: 




















* 


RDCHP 




;» INPUT A SINGLE CHARACTER FROM THE TTY 


. i; 












« 


RETURN 


HERE 


^CHARACTER IS ON THE STACK 




















SMITH PARITY BIT STRIPPED OFF 






















4674 




















4675 


023154 


011 646 






SRDCHPJ 


MOV 


CSP).-(SP) 


; SPUSH DOWN THE PC 


4676 




016666 


000004 


000002 






MOV 


4(SP),2CSP) 


; JSAVE THE PS 


4677 


023 1 64 


105777 


155754 




1$: 


TSTB 


9STKS 


J»WAIT FOB 


4678 


023 170 


1 00375 










BPL 


IS 


;!A CHARACTER 


4679 


02 3172 


117 766 


155750 


000004 






HOVB 


ia$TKB,4CSP] 


; TREAD THE TTY 


4680 


023200 


042766 


1 77600 


000004 






BIC 


»*C<177>,4(SP) 


JjGET RID OF JUNK IF ANY 


4681 


023206 


026627 


000004 


000023 






CMP 


4(SP),#23 


J J IS IT A CONTROL-S? 


4682 


023214 


001013 










BNE 


3S 


nBRANCH IF NO 


4683 


023216 


1 05777 


155722 




2tt 


TSTB 


9STKS 


;»WAIT FOR A CHARACTER 


468 4 


023222 


1 00375 










BPL 


2S 


JJLOOP UNTIL ITS THERE 


4685 


023224 


1 17746 


155716 








MOVB 


9STKB,-(SP) 


J !GET CHARACTER 


4686 


023230 


0427 16 


177600 








BIC 


«*C177, (SP) 


MHAKE IT 7-BIT ASCII 


4687 


023234 


022627 


000021 








CMP 


(SP)+, 121 


;fIS IT A CONTROL-Q? 


4688 


023240 


001 366 










BNE 


2S 


;;IF NOT DISCARD IT 


4689 


023242 


000750 










BR 


IS 


JiYES, RESUME 


4690 


023244 


026627 


000004 


000 140 


3$: 


CMP 


4(SP).«140 


JjIS IT UPPER CASE? 


4691 


023252 


002407 










BLT 


4S 


rjBRANCH IF YES 


4692 


023254 


026627 


000004 


000175 






CMP 


4(SP),#175 


MIS IT A SPECIAL CHAR7 


4693 


023262 


00300 3 










BGT 


4S 


JjBRANCH IF YES 


4694 


023264 


042766 


000040 


000004 






BIC 


I40>4CSP) 


; SHAKE IT UPPER CASE 


4695 


023272 


000002 






4$: 


RTI 




;jGO BACK TO USER 


4696 












<^»»tl,«4t««««l(f(«4t »•««•*»•*««»*«»*«'»«•••••*••**•••«»»•«•«»«»««*•••• 


4697 










(•THIS 


ROUTINE 


WILL INPUT A SIR 


NG FROM THE TTY 


4698 










;»Call: 








4699 












♦ 


RDLIN 




INPUT A STRING FROM THE TTY 


4700 












• 


RETURN 


HERE 


ADDRESS OF FIRST CHARACTER WILL BE ON 


4701 












« 






;;TERHINATOR WILL BE A BYTE OF ALL 0'S 


4702 




















4703 


023274 


010346 






SRDLINJ 


HOV 


R3,-(SP) 


JISAVE R3 


4704 


023276 


012703 


023402 




1$! 


MOV 


«STTYINiR3 


SSGET ADDRESS 


4705 


023302 


022703 


023412 




2S: 


CMP 


«STTiflN + e. ,R3 


J J BUFFER FULL? 
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4706 


023306 


101 405 








BLOS 


4S 


;>BR IF YES 


4707 


023310 


104410 








PDCHR 




SJGO READ ONE CHARACTER FROM THE TTY 


4708 


02331 2 


1 1261 3 








MOVB 


CsP)+»CR3) 


nGET CHARACTER 


4709 


023314 


122713 


000177 




10S: 


CMPB 


#177, (R3) 


!!IS IT A RUbOUT 


4710 


023320 


001003 








BNE 


3S 


J jskip if not 


4711 


023322 


104401 


001212 




4S: 


TYPE 


fSQUES 


SlTYPE A '7' 


4712 


023326 


000763 








BR 


IS 


SJCLEAR THE BUFFER AND LOOP 


4713 


023330 


111337 


023400 




3S: 


MOVB 


(R3),9$ 


; (ECHO THE CHARACTER 


1714 


023334 


104401 


023400 






TYPE 


#9S 




4715 


023340 


122723 


000efl 5 






CMPB 


«15, (R3)+ 


; JCHECK FOR RETURN 


4716 


023344 


001356 








BNE 


2S 


SJLOOP IF NOT RETURN 


47l7 


023346 


105063 


177777 






CLRB 


-1(R3) 


; ICLEAR RETURN (THE 15) 


4718 


023352 


104401 


001214 






TYPE 


.$LF 


SJTYPE A LINE FEED 


47)9 


023356 


012603 








MOV 


(SP)+rR3 


f (RESTORE R3 


1720 


023360 


011646 








HOV 


(SP),-(SP) 


; (ADJUST THE STACK AND PUT ADDRESS OF 


4721 


023362 


016666 


000004 


000002 




HOV 


4CSP),2(SP) 


(( FIRST ASCII CHARACTER ON IT 


4722 


023370 


012766 


023402 


000004 




MOV 


#STTYIN,4CSP) 




4723 


023376 


000002 








RTI 




> (RETURN 


4724 


023400 


000 






9s: 


.BYTE 





((STORAGE FOR ASCII CHAR. TO TYPE 


4725 


023401 


000 








.BYTE 





( (TERMINATOR 


4726 


023402 


000010 






STTYIKl 


,BLK8 


e. 


((RESERVE 8 BYTES FOR TTY INPUT 


4727 


023412 


052536 


005015 


000 


SCNTLUS 


.ASCIZ 


/-U/<15><12> 


; (CONTROL "U" 


1728 


023417 


136 


006507 


000012 


SCNTLGI 


.ASCIE 


/*G/<15><12> 


((CONTROL "G" 


4729 


023424 


005015 


053523 


020122 


smswr: 


.ASCIE 


<15><12>/SWR » 


/ 


4730 


023432 


020075 


000 












4731 


023435 


040 


047040 


053505 


SMNEW: 


.ASCIZ 


/ NEW = / 




4732 


023442 


036440 


000040 
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4733 








.SBTTL 


READ AN 


OCTAL NUMBER 


FROM THE TTY 


4734 
4735 








! ■•»•*•••••*»»»«••••••••••»•••*»*•*»««•■•*•«»•••«*•»•*•••«»••#*»• 


4736 








»*THIS 


ROUTINE 


WILL READ AN 


OCTAL (ASCII) NUMBER FROM THE TTY AND 


4737 








^•CHANGE II TO 


BINARY. 




473S 








>*CALLl 








4739 








f • 


RDOCT 




;|READ AN OCTAL NUMBER 


4740 








t* 


RETURN 


HERE 


;»LOW ORDER BITS ARE ON TOP OF THE 


474t 








t* 






IIHXGH ORDER BITS ARE IN SHIOCT 


4742 
















4743 


023446 


011646 




«FDOCII 


MOV 


CSP),-(5P) 


nPROVIDE SPACE FOR THE 


4744 


023450 


016666 


000004 


000002 


HOV 


4CSP),2CSP) 


;r INPUT HUHBER 


4745 


023456 


010046 






MOV 


R0f (SP] 


J 1 PUSH R0 ON STACK 


4746 


023460 


010146 






HOV 


R1,-(SP) 


nPUSH Rl ON STACK 


4747 


023462 


010246 






MOV 


R2,-(SP) 


UPUSH R2 ON STACK 


4748 


023464 


104411 




111 


RDLIN 




UREAD AN ASCIZ LINE 


4749 


023466 


012600 






MOV 


(SP)+>R0 


JIGET ADDRESS OF 1ST CHARACTER 


47S0 


023470 


005001 






CLR 


Rl 


CLEAR DATA WORD 


4751 


023472 


005002 






CLR 


R2 




4752 


023474 


112046 




2ti 


MOVB 


(R0)>,«(SP) 


! (PICKUP THIS CHARACTER 


4753 


023476 


001412 






BEQ 


3$ 


MIF ZERO GET OUT 


4754 


023500 


006301 






ASL 


Rl 


;>»2 


4755 


023502 


006102 






ROL 


P2 




4756 


023504 


006301 






ASL 


Rl 


If* 


4757 


023506 


006102 






ROL 


R2 




4758 


023510 


006301 






ASL 


Rl 


; »*9 


4759 


023512 


006102 






ROL 


B2 




4760 


023514 


042716 


177770 




BIC 


#-C7, (SP) 


MSTRIP THE ASCII JUNK 


4761 


023520 


062601 






ADD 


(SP)+,R1 


;>ADD IN THIS DIGIT 


4762 


023522 


000764 






BR 


2S 


: (LOOP 


4763 


023524 


005726 




3t: 


TST 


(SP) + 


MCLEAN TERMINATOR FROM STACK 


4764 


023526 


010166 


000012 




MOV 


Plrl2(SP) 


;|SAVE THE RESULT 


4765 


023532 


010237 


023546 




MOV 


R2f IHIOCT 




4766 


023536 


012602 






MOV 


CSP}i,R2 


;jPOP STACK INTO R2 


4767 


023540 


012601 






MOV 


CSP)+»R1 


;>POP STACK INTO Rl 


4768 


023542 


012600 






MOV 


CSP)'^>R0 


:|POP STACK INTO R0 


4769 


023544 


000002 






BTl 




; »RETURN 


4770 


023546 


000000 




IHIOCTI 


.WORD 





;|HIGH ORDER BITS GO HERE 
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4771 .SBTTL READ A DECIMAL NUMBER FROM THE TTY 
4772 

477 3 t I **•»»*«»*«»»»«•**«**•«»•»»•*•****••••***««»«**»*«»«•«*«»•**«*»» 

4774 ;«IHIS ROUTINE WILL READ A DECIMAL (ASCII) NUMBER FROM THE TTY AND 

4775 f*CHANGE IT TO BINARY. IF TOO MANY CHARACTERS OR ANY ILLEGAL CHARACTERS 

4776 |«ARe READ A "T" FOLLOWED BY A CARRIAGE RETURN-LINE FEED WILL BE TYPED. 

4777 |*THE COMPLETE NUMBER MUST BE RETYPED. THE INPUT IS TERMINATED BY THE 

4778 ;«USER TYPING A CARRIAGE RETURN. THE RANGE OF THE INPUT NUMBER IS 

4779 ^'POSITIVE 32767 TO NEGATIVE 32768. 

4780 >«CALL) 

4781 RDDEC ;rREAD A DECIMAL NUMBER 

4782 I* RETURN HERE ;>NUMBER IS ON TOP OF THE STACK 

4783 f 
4784 



4785 


023550 


011646 




IRDDECJ 


MOV 


(SP)»-(SP) 


MPROVIDE SPACE FOR 


4786 


023552 


016666 


000004 0i 


0002 


MOV 


4{SP),2(SP] 


ilTHE INPUT NUMBER 


4787 


023560 


010046 






HOV 


R0,-(SP) 


II PUSH R0 ON STACK 


4788 


023562 


010146 






MOV 


R1,-(SP) 


IIPUSH Rl ON STACK 


4789 


023564 


010246 






MOV 


R2.-(SP) 


IIPUSH R2 ON STACK 


4790 


023566 


104411 




l$l 


RDLIN 




IIREAD AN ASCIZ LINE 


4791 


023570 


012600 






MOV 


(5P)+f R0 


II ADDRESS OF 1ST CHAR. 


4792 


023572 


010037 


023716 




HOV 


R0r6« 


IISAVE INCASE OF BAD INPUT 


4793 


023576 


005046 






CLR 


-(SP) 


IICLEAR DATA WORD 


4794 


323600 


005002 






CLR 


R2 


IISIGN SET POSITIVE 


4795 


023602 


122710 


000055 




CHPB 


#'-,(R0) 


USEE IF A HINUS SIGN WAS TYPED 


4796 


023606 


001001 






BNE 


2« 


IIBR IF NO MINUS SIGN 


4797 


023610 


112002 






MOVB 


(R0}'»,R2 


IISAVE FOR LATER USE 


4798 


023612 


112001 




211 


MOVB 


(R0)+>R1 


IIPICKUP THIS CHARACTER 


4799 


023614 


001424 






BEQ 


3« 


II GET OUT IF ZERO 


4800 


023616 


122701 


000060 




CMPB 


»'0,R1 


llMAKE SURE THIS CHARACTER 


4801 


023622 


003032 






BGT 


S« 


Ills A DIGIT BETWEEN & 9 


4802 


023624 


122701 


000071 




CHPB 


I'9,B1 




4803 


023630 


002427 






BLT 


5* 




4804 


023632 


032716 


170000 




BIT 


»-C7777,(SP) 


IIOON'T LET NUMBER GET TO BIG 


4805 


023636 


001024 






BNE 


5« 


IIBR IF NUMBER WOULD OVERFLOW 


4806 


023640 


006316 






ASL 


(SP) 


11*2 


4807 


023642 


011646 






MOV 


(SP),-{SP) 


IISAVE FOR LATER 


4808 


023644 


006316 






ASL 


(SP) 


II»4 


4809 


023646 


006316 






ASL 


(SP) 


ll»8. 


4810 


023650 


062616 






ADD 


(SP}>,(SP) 


11*101 


4811 


0236S2 


102416 






BVS 


St 


II OVERFLOW ISN'T ALLOWED 


4812 


023654 


162701 


000060 




SUB 


I'0»R1 


llSTRIP AWAY THE ASCII JUNK 


4813 


023660 


060116 






ADD 


Ri*(SF) 


II ADD IN THIS DIGIT 


4814 


023662 


102412 






BVS 


5* 


IIOVERFLOH ISN'T ALLOWED 


4815 


023664 


000752 






BR 


21 


1 1 LOOP 


4816 


023666 


005702 




311 


TST 


R2 


llCHECK IF NUMBER IS NEG 


4817 


023670 


001401 






BCO 


4t 


IIBR IF NO 


4818 


023672 


005416 






MEG 


(SP) 


II YES— NEGATE THE NUMBER 


4819 


023674 


012666 


000012 


411 


MOV 


(5P}+rt2(SP; 


IISAVE THE RESULT 


4820 


023700 


012602 






HOV 


(SP)4',R2 


IIPOP STACK INTO R2 


4821 


023702 


012601 






HOV 


(SP)*,Rl 


II POP STACK INTO Rl 


4822 


023704 


012600 






MOV 


(SP)+f R0 


IIPOP STACK INTO R0 


4823 


023706 


000002 






RTI 




IIRETURN 


4824 
















4825 


023710 


005726 




S«) 


TST 


CSP)* 


nCLEAN PARTIAL NUMBER FROW STACK 


48J6 


023712 


105010 






clRb 


CP0) 


i ISET A TERMINATOR 
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5E0 0126 



4827 023714 104401 

4828 023716 000000 

4829 02372^ 104401 

4830 923724 000720 



TYPE 

.HORO e 

TYPE flQUES 

SR 1$ 



;;TYPE THE INPUT UP TO BAD CHAR, 
nPOINTER GOES HERE 

n"t" "CR" i'lr' 

nlRY AGAIN 
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SEQ 0127 



48 31 






4832 






4833 






4834 






4835 






4836 






4837 






4838 






4819 






4840 






4841 






4842 






4843 


023726 




4344 


023726 


010046 


4845 


023730 


010146 


4846 


023732 


010246 


4847 


023734 


010346 


4848 


023736 


010546 


4849 


023740 


012746 


4850 


02 3744 


016605 


4851 


023750 


100004 


4852 


023752 


0054?5 


4853 


023754 


1 12766 


4854 


023752 


005000 


4855 


023764 


012703 


1856 


023770 


112723 


4857 


023774 


005002 


4858 


023775 


016001 


4859 


024002 


160105 


4860 


024004 


002402 


4861 


024006 


005202 


4862 


024010 


000774 


4863 


024012 


060105 


4864 


024014 


005702 


4865 


024016 


001002 


4366 


024020 


105716 


4357 


024022 


100407 


4868 


024024 


106316 


4869 


024026 


103003 


487a 


024030 


116663 


4871 


024036 


052702 


4872 


024042 


052702 


4873 


024046 


1 10223 


4874 


024050 


005720 


4875 


024052 


020027 


4876 


024056 


002746 


4877 


024060 


003002 


4878 


024062 


010502 


4879 


024064 


000764 


4880 


024066 


105726 


4881 


024070 


100003 


4882 


024072 


1 16663 


4883 


024100 


10501 3 


4384 


024102 


012605 


4885 


024104 


012603 


4886 


024106 


012602 



020200 

000020 



000055 000001 



024142 
000040 



024132 



000001 

000060 
000040 



000010 



177777 



177777 177776 



.SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 

• ;«»•«»••••»***«••»•«••*••*••••»*«•*•••••«•••••*•••»••••*••*••••• 

j*THIS ROUTINE IS USED TO CHANGE A 16-BlT BINARY NUMBER TO A 5-DIGII 
;»S1GnED decimal (ASCII) NUMBER AND TYPE IT, DEPENDING ON WHETHER THE 
j«NUHBEB IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
(♦BEFORE THE FIRST DIGIT OF THE NUMBER, LEADING ZEROS WILL ALWAYS BE 
S«REPLACED WITH SPACES. 
f»CALL: 

;»PUT THE BINARY NUMBER ON THE STACK 
;jGO TO THE ROUTINE 



MOV 


NUM,-CSP) 


TYPDS 




MOV 


R0,-CSP) 


MOV 


R1,-(SP) 


MOV 


R2»-(SP) 


MOV 


R3,-(SP) 


MOV 


R5,-(5P) 


HOV 


»202a0.-CSP) 


MOV 


20(SP]>R5 


BPL 


1$ 


NEG 


RS 


MOVB 


»'-,lCSP) 


CLR 


R0 


MOV 


«SDBLK,R3 


MOVB 


*' ,(R3)+ 


CLR 


R2 


MOV 


tDTBL(R0}>Rl 


SUB 


R1,R5 


BLT 


4$ 


I^C 


R2 


BR 


3S 


ADD 


R1,R5 


TST 


R2 


BNE 


5« 


T5TB 


tSP) 


BHI 


7S 


ASLB 


C5P) 


BCC 


6S 


MOVB 


1(SP),-1(R3) 


BIS 


»'0,R2 


BIS 


#• rR2 


MOVB 


R2»(R3)+ 


TST 


(B0) + 


CMP 


R0f tl0 


BLT 


2t 


BGT 


8t 


HOV 


R5,R2 


BR 


6S 


TSTB 


(SP) + 


BPL 


9S 


MOVB 


-1(5P),-2CR3) 


CLRB 


CP3) 


MOV 


CSP)+,R5 


MOV 


CSP)+,R3 


MOV 


(SP)+,R2 



(PUSH R0 ON STACK 

JPUSH Rl ON STACK 

>PUSH R2 ON STACK 

jPUSH R3 ON STACK 

;PU5H R5 ON STACK 

(SET BLANK SWITCH AND SIGN 

JGET THE INPUT NUMBER 

:BR IF INPUT IS POS, 

(MAKE THE BINARY NUMBER POS. 

(MAKE THE ASCII NUMBER NEG. 

(ZERO THE CONSTANTS INDEX 

(SETUP THE OUTPUT POINTER 

(SET THE FIRST CHARACTER TO A BLANK 

(CLEAR THE BCD NUMBER 

(GET THE CONSTANT 

(FORM THIS BCD DIGIT 

(BR IF DONE 

(INCREASE THE BCD DIGIT BY 1 

(ADD BACK THE CONSTANT 
(CHECK IF BCD DIGIT«0 
(FALL THROUGH IF 
(STILL DOING LEADING 0'S7 
(BR IF YES 
IMSD? 
(BR IF NO 

(YES—SET THE SIGN 

(MAKE THE BCD DIGIT ASCII 

(HAKE IT A SPACE IF NOT ALREADY A DIGIT 

(PUT THIS CHARACTER IN THE OUTPUT BUFFER 

(JUST INCREMENTING 

(CHECK THE TABLE INDEX 

(GO DO THE NEXT DIGIT 

(GO TO EXIT 

(GET THE LSD 

(GO CHANGE TO ASCII 

(WAS THE LSD THE FIRST NON-ZERO? 

(BR IF NO 

{YES~SET THE SIGN FOR TYPING 
(SET THE TERMINATOR 
(POP STACK INTO R5 
(POP STACK INTO R3 
(POP STACK INTO R2 
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SEQ 0128 



4887 


024 110 


012601 






( SP ) + f Rl 


r ) rUr jniU til 


4888 


024 112 


01 2600 






CSP)+»R0 


»)rUr olACIv InlU nio 


4889 


024114 


1 04401 


024 142 


TYPE 


f SDBLK 


M^OW TYPE THE NUMBER 




02 4 1 2i) 


0] 6666 


000002 000004 


MqV 


2CSP}v4CSP) 


madjust the stack 


4691 


024126 


012616 




MOV 


(sp)+, csp) 




4892 


034130 


000002 




RTI 




nRETURN TO USER 


4893 


024132 


023420 


IDTBLI 


10000, 






4894 


024134 


001750 




1000, 






49^5 


024136 


000144 




100. 








024140 


000012 




10. 






4897 


024142 


000004 


(DBLKI 


.BLKM 


4 
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4898 








.SBTTl, 


TYPF 


ROUTINE 




4899 
















4900 








; 1 •••••»»*••«••»•»»*»»»»»•••••*•«*«*•«•«»»*«•««•«*•**•«*«««*»•««« 


4901 








)»ROUTINe TO 


TYPE aSCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A BYTE. 


49P2 








;»THE ROUTINE 


WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 


4903 








!»N0TE1 : 


SNULL CONTAINS 


THE CHARACTER TO BE USED AS THE FILLER CHARACTER 


4904 








:»N0TE2i 


*FILLS CONTAINS 


THE NUMBER OF FILLER CHARACTERS REOUIREO. 


4905 








:»N0TE3: 


SriLLC CONTAINS 


THE CHARACTER TO FILL AFTER. 


4906 








• » 








4907 








;*call: 








4908 








;*] ) USING A 


TRAP INSTRUCTION 




4909 








; » 


TYPE 


.MESADR 


:>HESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


4910 








»»0R 








491 1 








( * 


TYPE 






4912 








;* 


HESAOR 




4913 








; • 








4914 
















4915 


024152 


105737 


001157 


STYPEI 


TSTB 


STPFLG 


MIS THERE A TERMINAL? 


4916 


024156 


100002 






BPL 


1$ 


>IBR IF YES 


4917 


024160 


000000 






HALT 




JJHALT HERE IF NO TERMINAL 


4918 


024162 


000407 






BB 


3S 


; JLEAVE 


4919 


024164 


010046 




is: 


MOV 


R0r-(SP) 


nSAVE R0 


4920 


024166 


017600 


000002 




MOV 


92(SP).R0 


IIGET ADDRESS OF ASCIZ STRING 


4921 


024172 


112046 




2$: 


MOVB 


(R0)+»-(SP) 


;:PUSH CHARACTER TO BE TYPED ONTO STACK 


4922 


024174 


001005 






BNE 


4« 


JJBR IF IT ISN'T THE TERMINATOR 


4923 


024176 


005726 






TST 


CSP) + 


;|IF TERMINATOR POP IT OFF THE STACK 


4924 


024200 


012600 




60«l 


MOV 


tSP)+.R0 


;> RESTORE R0 


4925 


024202 


062716 


000002 


3$: 


ADD 


#2,CSP) 


! (ADJUST RETURN PC 


4926 


024206 


000002 






RTI 




; (RETURN 


4927 


024210 


122716 


0000] 1 


4«l 


CMPB 


«HT, CSP) 


HBRANCH IF <HT> 


4928 


024214 


001430 






BEQ 


8t 




4929 


024216 


122716 


000200 




CMPB 


»CRLF,(SP) 


nBRANCH IF NOT <CRLF> 


4930 


024222 


001006 






BNE 


5a 




4931 


024224 


005726 






TST 


(SP) + 


;(POP <CR><LF> EQUIV 


4932 


024226 


104401 






TYPE 




! (TYPE A CR AND LF 


4933 


024230 


001213 






fCRLF 






4934 


024232 


105037 


024366 




CLRB 


ICHARCNT 


((CLEAR CHARACTER COUNT 


4935 


024236 


000755 






BR 


2$ 


((GET NEXT CHARACTER 


4936 


024240 


004737 


024322 


5$: 


JSR 


PC.STYPEC 


((GO TYPE THIS CHARACTER 


4937 


024244 


123726 


001156 


6$; 


CMPB 


triiLC> (SP)+ 


((IS II TIME FOR FILLER CHARS. 7 


4938 


024250 


001350 






BNE 


2* 


((IF NO GO GET NEXT CHAR. 


4939 


024252 


013746 


001154 




MOV 


«NULL,-(SP} 


((GET t OF FILLER CHARS. NEEDED 


4940 














((AND THE NULL CHAR. 


4941 


024256 


105366 


000001 


7»: 


OECB 


l(SP) 


((DOES A NULL NEED TO BE TYPED? 


4942 


024262 


002770 






BLT 


6S 


((BR IF NO--G0 POP THE NULL OFF OF STACK 


4943 


024264 


004737 


024332 




JSR 


PCSTYPEC 


((GO TYPE A NULL 


4944 


034270 


105337 


024366 




DECB 


(CHARCNT 


((DO NOT COUNT AS A COUNT 


4945 


024274 


000770 






BR 


7S 


; (LOOP 


4946 
















4947 








IHORIZONTAL TAB PROCESSOR 




4948 
4949 


024276 


112716 


000040 


Btl 


MOVB 


»' i(SP) 


((REPLACE TAB WITH SPACE 


4950 


024302 


004737 


024322 


9SS 


JSP 


P:,»TYPEC 


((TYPE A SPACE 


4951 


024306 


132737 


000007 


024366 


BITS 


•7,»CHARCNT 


((BRANCH IF NOT AT 


4952 


024314 


001372 






BNE 


9» 


((TAB STOP 


4953 


034316 


805726 






TST 


(SP) + 


((POP SPACE OFF STACK 
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4954 


024320 


000724 








BP 


2t 


j;GET NEXT CHARACTER 


4955 


024322 


105777 


154622 




STYPEC S 


TSTB 


* stps 


;tHAIT UNTIL PRINTER IS READY 


4956 


024326 


100375 








SPL 


S TYPEC 




4957 


024330 


116677 


000002 


154614 




HOVB 


2(SP)#9STPB 


??LOAD CHAR TO BE TYPED INTO DATA 








vow 1^ 


000002 




CMPB 


^ t £ \ or J 


: J IS CHARACTER A CARRIAGE RETURN? 


4959 


024344 


001003 








BNE 


IS 


; (BRANCH IF NO 


4560 


024346 


105037 


024366 






CLRB 


SCHARCNT 


;JYES--CLEAR CHARACTER COUNT 


4961 


024352 


000406 








BP 


STYPEX 


JfEXlT 


4962 


024354 


122766 


000012 


000002 


IS: 


CMPB 


»LF,2tSP) 


;;IS CHARACTER A LINE FEED? 


4963 


024362 


001402 








BEO 


STYPEX 


; (BRANCH IF YES 


4964 


024364 


105227 








INCB 


CPC) + 


; (COUNT THE CHARACTER 


4965 


!?i24366 


000000 






SCHARCNT: .WORD 





; (CHARACTER COUNT STORAGE 


4966 


024370 


(1100207 






STYPEX: 


RTS 


PC 




4967 
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4969 






.SBTTL 


DOUBLE 


LENGTH BINARY TO 


OCTAL ASCII CONVERT ROUTINE 


4969 
















4970 








• »*♦»»•«»»*«♦•»»»♦»♦**»«••»»«♦♦»»#••♦«♦»•♦•««♦♦»♦*«•♦«♦♦»#♦«♦»♦» 


4971 








♦ THIS 


ROUTlNt 


IllL CONVERT A 32 


-BIT UNSIGNED BINARY NUMBER TO AN 


4972 








♦UNSIGNED OCTAL ASCIZ NUMBER, 




4973 








♦CALL 








4974 








♦ 


MOV 


»PNTR,-CSP) 


((POINTER TO LOW WORD OF BINARY NUMBER 


4975 








♦ 


JSR 


PC.9#SD820 


((CALL THE ROUTINE 


4976 








♦ 


RF.TUPN 




((THE ADDRESS OF THE FIRST ASCIZ CHAR. IS 


4977 
















4979 
















4979 


024372 


104414 


SDB20: 


SAVPF.G 




((SAVE ALL REGISTERS 


4980 


024374 


016601 


000002 




MOV 


2CSP),R1 


((PICKUP THE POINTER TO LOW WORD 


4981 


024400 


012705 


024511 




MOV 


»S0CTVL+13.,R5 


({POINTER TO DATA TABLE 


4982 


024404 


012704 


000014 




MOV 


•12..R4 


({DO ELEVEN CHARACTERS 


4983 


024410 


012703 


177770 




MOV 


»-C7,R3 


{ (MASK 


4984 


024414 


012100 






MOV 


CRl )+.R0 


((LOWER WORD 


4985 


024416 


012101 






MOV 


CRn + ,Rl 


((HIGH WORD 


4986 


024420 


005002 






CLP 


R2 


( (TERMINATOR 


4987 


024422 


) 10245 


is: 


MOVB 


R2,-(R53 


((PUT CHARACTER IN DATA TABLE 


4988 


024424 


010002 






MOV 


R0,R2 


{ (GET THIS DIGIT 


4989 


024426 


005304 






DEC 


P4 


((COUNT THIS CHARACTER 


4990 


024430 


003007 






BGT 


35 


((BR IF NOT THE LAST DIGIT 


4991 


024432 


001 405 






BEQ 


2$ 


{(BR IF IT IS THE LAST DIGIT 


4992 


024434 


005205 






INC 


R5 


((ALL DIGITS DONE-ADJUST POINTER FOR FIRST 


4993 


024436 


010566 


000002 




MOV 


R5.2(SP) 


({ASCIZ CHAR, (i PUT IT ON THE STACK 


4994 


024442 


104415 






RE5REG 




({RESTORE ALL REGISTERS 


4995 


024444 


000207 






RTS 


PC 


{(RETURN TO USER 


4996 


024446 


006203 


2S: 


ASR 


R3 


{{POSITION THE MASK FOR THE LAST DIGIT 


4997 


024450 


005001 


3S: 


ROR 


Rl 


((POSITION THE BINARY NUMBER FOR 


4998 


024452 


006000 






POP 


P0 


{{ THE NEXT OCTAL DIGIT 


4999 


024454 


006001 






ROR 


Kl 




515 


024456 


006000 






ROR 


Ra 




5M01 


M24460 


006001 






POR 


Rl 




5.102 


024462 


006000 






ROR 


R0 




50;}3 


024464 


040302 






BIC 


R3,R2 


{(MASK OUT ALL JUNK 


5e)04 


024466 


062702 


000050 




ADD 


«'0,R2 


((MAKE THIS CHAR. ASCII 


5i«05 


024472 


000753 






BR 


IS 


((GO PUT IT IN THE DATA TABLE 


5l?^6 


024474 


000015 


SOCTVL: 


,8LKB 


14. 


{(RESERVE DATA TABLE 
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SEC IS 13;: 



5007 








.SBTTL 


DOUBLE 


LENGTH BINARY 


TO DECIMAL ASCII CONVERT ROUTINE 


5006 
















S009 








; 1 •»•••»••••«'»*••• •««**»*4t« •*••»• ••••••«••«••*••»••« »••••*••*•*•* 


5010 








;*THIS 


ROUTINE 


MILL CONVERT A 


32>BIT BINARY NUMBER TO AN UNSIGNED 


501 1 








|»DECIHAL (ASCII) NUMBER. THE 


SIGN OF THE BINARY NUMBER MUST BE 


5012 








J«P0SITIVE. 






501 1 
















501 4 










MOV 


IPNTRp -«(SP) 


; (POINTER TO LOW WORD OF BINARY NUMBER 


5015 










JSR 


PC f#iSD620 




5016 








1 * 


QPTIISSM 




J (THE FIRST ADDRESS OF ASCIZ 


5017 














>IIS ON THE STACK 


501 8 
















5019 
















5020 


024512 


104414 






DM V H t w 




MSAVE REGISTERS 


5021 


024514 


016602 


000002 






2 (SP ) r R2 


!>PICKUP THE DATA POINTER 


5022 


034520 


012700 


024672 




MOV 


iSDECVLf R0 


;jCET ADDRESS OF "SDECVL" STRING 


5023 


034524 


010066 


000002 




HOV 


R0 §2i SP ) 


MPOT ADDRESS OF ASCIZ STRING ON STACK 


5024 


024530 


012201 








(R2)+vRl 


; (PICKUP THE BINARY NUMBER 


5025 


024532 


01 i202 






MOV 


( R3 ) + # R2 




5036 


024534 


012737 


000012 


034610 


MOV 


# 10 • f 4S 


I)SET UP TO DO 10 CONVERSIONS 


5027 


024542 


012704 


024632 




MOV 


4STNPNRrR4 


nADDRESS OF TEN POWER 


5028 


024546 


012705 


024634 




rfo 


#STNPWR+2rP5 




5029 


034552 


005003 




* * 




R3 


(ICLEAR PARTIAL 


5030 


034554 


161401 






SUB 


(H4) » Rl 


;> SUBTRACT TEN P0WE3 


5031 


024556 


005602 






■ 

SBC 






5032 


034560 


161502 






ot't 


(R5) R2 




5033 


024562 


002403 








3$ 


; ( BR IF TEN POWER TO LARGE 


5034 


024564 


005203 






TMr 


R3 


3 1 ADD 1 TO PARTIAL 


5035 


024566 


000773 






BD 


2t 


• J LOOP 


S036 


024570 


062401 






Ann 
* 


(R4}+#R1 


; (RESTORE SUBTRACTED VALUE 


5037 


024572 


005502 








R2 




5038 


024574 


062403 






»nn 


(R4)+fR2 




5039 


024576 


023525 






HMD 


(R5)+# (R5}+ 


((MOVE TO NEXT TEN POWER 


5040 


024600 


052703 


000O6(> 




BTS 


# ' ff R3 


((CHANGE PARTIAL TO ASCII 


5041 


024604 


1 10320 






MOVB 


R3 p ( R0 ) + 


((SAVE IT 


5042 


024606 


005327 






DEC 


(PC) + 


( (DONE? 


5043 


024610 


000000 




4$ * 


a WORD 







5044 


024612 


001357 






BNE 


1 1 


((BR IF NO 


5045 


024614 


105020 






CLRB 


( R0] + 


; ( TERMINATOR 


5046 


024616 


104415 






RESREG 




((RESTORE REGISTERS 


5047 


024620 


000207 






RTS 


PC 


( ( RETURN 


5048 


024622 


1 45000 




STNPMP t 


145000 




( ( 1 .0E09 


5049 


024624 


035632 






35632 






5050 


024626 


160400 






160400 




{ ! 1 ,0E08 


5051 


024630 


002765 






2765 






5052 


024632 


11:200 






113200 




( ( 1 ,0E07 


5053 


024634 


000230 






230 




5054 


034636 


041100 






041100 




{ ( 1 .0E06 


5055 


024640 


000017 






17 






5056 


024642 


103240 






103241" 




{ ( 1 .0E0S 


5057 


024644 


000001 






1 






5058 


024646 


023420 






23420 




( 1 1 .0E04 


5059 


024650 


000000 













5060 


024653 


001750 






1750 




((1,0E03 


5061 


024654 


000000 













5062 


024656 


000144 






144 




((1.0E02 
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5063 


024660 


000000 









5064 


024662 


000012 


12 




( (i.eE0i 


S065 


024664 


000000 


e 






5066 


024666 


000001 


1 




; (1 .0E00 


5067 


024670 


000000 








5068 


024672 


000014 


sdecvl: .blkb 


'2. 


! (RESERVE 
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5069 










.SBTTL 


SUPRS - TYPE 


NUMERICAL ASCIZ STRING, REPLACE LEADING 


5P)70 










.SBTTL 


SUPR5L • TYPE 


NUMERICAL ASCIZ STRING, LEFT JUSTIFY 


507 1 










J NOT TROM SYSHAC 




5072 
















5073 


924706 


010046 




SUPRSL 1 


MOV 


P0# • C SP) 


>SAVE R0 


5074 


024710 


005037 


024776 




clr 






5075 


024714 


016600 


000004 




MOV 


A r Co ^ Da 
H \ or J t KB 




5076 


024720 


000405 






BR 


SUPl 




5077 
















5078 


024722 


010046 




SUPRSS 


MOV 


D n _ f e D ^ 
no 1 ^\Sr J 


;SAVE R0 


5079 


024724 


01 6600 


000004 




MOV 


A ^ CD 1 DIA 


IPICKUP THE POINTER 


5060 


024730 


010037 


024776 




MOV 


R0 # SUP2 


fSAVE FOR TYPING 


509 1 


024734 






SUPl I 








50B2 


0247 34 


105710 




1 S 1 


T 




; TERMINATOR? 


503 3 


024736 


001 406 






^ .2., 


2 S 


;8R IF YES 


5094 


024740 


122710 


000060 




CMPB 


i '0F ( R0 ) 


;IS THIS AN ASCII "0"? 


5085 


024744 


001006 






BNE 


4S 


; NO 


5086 


024746 


1 1 2720 


000040 




MOVB 




fREPLACE IT WITH "BLANK" 


5087 


024752 


000770 






BR 


1$ 






024754 


005 300 




2S ! 


DEC 


R0 


; BACKUP BY 1 


5089 


024756 


1 12710 


000060 




HOVB 


#'0, tR0) 


;ASCII "0" 


5090 


024762 


005737 


024776 


4SI 


TST 


SUP2 


JLEFT JUSTIFY? 


5091 


024766 


001002 






BNE 


5S 


JNO 












H8¥ 


r0f 3uf2 


; YES 


5093 


024774 


104401 




5$l 


TYPE 




J GO TYPE 


5094 


024776 


000000 




SUP2: 


.MORD 







5095 


025000 


012600 






MOV 


(SP)+,R0 


! RESTORE R0 


5096 


025002 


012616 






MOV 


CSP)+, (SP) 


JRESTORE THE STACK 


5097 


025004 


000207 






RTS 


PC 


> RETURN 



INDEC 


-11-OZRKH-F 


MRCYU 27(1006) 


04-OCT 


-76 13J29 PAGE 122 




,RKHF. 


Pll 22-SFP-76 


08:57 


INTEGER 


MULTIPLY ROUTINE 




5098 








•SBTTL 


INTEGER 


MULTIPLY ROUTINE 


5099 
















5100 










5101 








;«CALL 








5102 








;« 


MOV 


MULTIPt,ER,-(SP) 




5103 








;* 


MOV 


MULTIPLICAND. "(SP) 


5104 










JSR 


PCfliSMULT 




5105 










RETURN 


J I PRODUCT IS ON 


THE STACK 


5106 








; ♦ 








5107 










STACK 


PRODUCT 




5108 








;• 








5109 








• « 


TOP 


LSP'S 




5110 








5 * 


+2 


MSB'S 




5111 
















5112 


02S006 






Si^ult: 








5113 


025006 


010046 






MOV 


P0,-(SP) 


;»PUSH R0 ON STACK 


5114 


025010 


010146 






KOV 


R1,-(SP) 


MPUSH PI ON STACK 


5115 


025012 


010246 






MOV 


R2,-(SP) 


nPUSH R2 ON STACK 


5116 


025014 


005046 






CLR 


-(SP) 


MCLEAR THE SIGN KEY 


5117 


025016 


016601 


000012 




MOV 


12(SP),R1 


;tGET THE MULTIPLICAND 


5118 


025022 


100002 






RPL 


IS 


;>BR IF PLUS 


5119 


025024 


005216 






INC 


(SP) 


;>SET THE SIGN KEY 


5120 


025026 


005401 






NEG 


Rl 


;:HAKE THE MULTIPLICAND POSTIVE 


5121 


025030 


016602 


000014 


IS! 


MOV 


14(SP),R2 


JjGET THE MULTIPLIER 


5122 


025034 


100002 






BPL 


2$ 


SJBR IF PLUS 


5123 


025036 


005316 






DEC 


(SP) 


;|UPDATE THE SIGN KEY 


5124 


025040 


0054(^2 






NEG 


R2 


; J MAKE THE MULTIPLIER POSTIVE 


5125 


025042 


012746 


000021 


2s: 


MOV 


»17.,-(SP) 


;>SET THE LOOP COUNT 


5126 


025046 


005000 






CLP 


R0 


! (SETUP FOR THE MULTIPLY LOOP 


5127 


025050 


103001 




3S! 


BCC 


4$ 


;;D0N'T ADD IF MULTIPLICAND » 


5129 


025052 


060200 






ADD 


R2,Ra 




5129 


025054 


006000 




4S; 


ROR 


R0 


nPOSITION THE PAHITIAL PRODUCT AND 


5n0 


025056 


0060C)1 






ROR 


Rl 


JJTHE MULTIPLICAND 


5131 


025060 


005316 






DEC 


(SP) 


;;HAS ALL BITS OF THE MULTIPLICAND BEEN 


51 32 


025062 


001372 






BNE 


3S 


;SBR IF NO 


5133 


025064 


022616 






CMP 


(SP)+, (SP) 


; (SHOULD PRODUCT BE NEGATIVE? 


5134 


025066 


001403 






BEQ 


5S 


;jGO TO EXIT IF NO 


51 35 


025070 


005400 






NEG 


R0 


;>YES"SO HAKE IT SO 


5136 


025072 


005401 






NEG 


Rl 




5137 


025074 


005600 






SBC 


R0 




5138 


025076 


005726 




5$l 


TST 


(5P) + 


! (CLEAR SIGN INFO, OFF OF STACK 


5139 


025100 


010066 


000012 




MOV 


R0,12(SP) 


;;PUT THE PRODUCT ON THE STACK (MSB'S) 


51 40 


025104 


010166 


000010 




MOV 


Rlrl0(SP) 


; (LSB'S 


5141 


025110 


012602 






MOV 


(SP)+,R2 


; (POP STACK INTO R2 


5142 


025112 


012601 






MOV 


(SP)+,R1 


((POP STACK INTO PI 


51 43 


025114 


012600 






MOV 


(SP)+,R0 


((POP STACK INTO B0 


5144 


025116 


000207 






RTS 


PC 
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5145 










iSBTTL 


INTEGER 


DIVIDE ROUTINE 




5146 


















5147 










J»CAI<L! 








5148 










>* 


MOV 


LOW DIVIDENDf- 


(SP) (THE HIGH DIVIDEND MUST BE 


5149 










>• 


MOV 


HIGH DIVIDENDi 


•CSP) } AS LARGE AS THE DI^ 


5150 










»• 


MOV 


DIVI80Rf-(SP) 




5151 










'* 


JSP 


PC#»DIV 




5152 










(• 


RETURN 




(QUOTIENT t REMAINDER ARE ( 


5153 












"V"=0 


IMPLIES NO ERROR 


5154 










■* 


"V"»l 


IMPLIES ERROR 


OCCURRED 


5155 










■ * 




"C"»0 DIVIDE 


OVERFLOH OCCURRED 


5156 














"C"«l ATTEMPTED TO DIVIDE BY ZERO 


5157 










; # 








5158 










; • 








5159 
5160 










'* 


STACK 


NO ERROR 


OVERFLOW DIVIDE BY ZERO 










(* 








5161 










* * 


TOP 


REMAINDER 


ALL ZEROS ALL ONES 


5162 












+ 2 


QUOTIENT 


ALL ZEROS ALL ONES 


5163 


















5164 


025120 


01 3746 


000034 




6DIVI 


MOV 


34, -(SP) 


(SAVE CURRENT TRAP VECTOR 


5165 


025124 


012737 


025134 


000034 




MOV 


tl«,34 


rSET UP TRAP VECTOR 


5166 


025132 


104400 








TRAP 






5157 


025134 


012716 


025156 




Iti 


MOV 


«2S, (SP) 


(REPLACE NEW PC 


5168 


025140 


016637 


000004 


000034 




MOV 


4CSP),34 


(RESTORE OLD TRAP VECT 


5169 


025146 


016666 


000002 


000004 




MOV 


2CSP),4(SP) 


(SAVE PSW 


5170 


025154 


000002 








RTI 




(RESTORE PSW 


5171 


















5172 


025156 


042716 


000017 




2S 1 


BIC 


»17,(SP) 


(STRIP AWAY CONDITION CODES 


5173 


02S162 


010046 








MOV 


R0,-(SP) 


(PUSH R0 ON STACK 


5174 


025164 


010146 








HOV 


R1»-(SP0 


(PUSH Rl ON STACK 


5175 


025166 


010246 








MOV 


R2»-(SP) 


(PUSH R2 ON STACK 


5176 


025170 


010346 








MOV 


R3,-(SP) 


(PUSH R3 ON STACK 


5177 


025172 


005046 








CLP 


-CSP) 


(SAVE A PLACE FOR SIGNS 


5178 


025174 


012746 


000021 






MOV 


#17.,-(SP) 


(SETUP THE ITERATION COUNTER 


5179 


025200 


016601 


000024 






HOV 


24(SP) .Rl 


(PICKUP THE DIVIDEND 


5180 


025204 


016600 


000022 






MOV 


22CSP3 iR0 




5181 


025210 


1 00005 








BPL 


3S 


(CHECK THE SIGN 


5182 


025212 


105366 


000003 






DECS 


3(SP) 


(KEEP TRACK OF THE SIGN 


5183 


025216 


005400 








NEG 


RB 


(AND NEGATE THE ORIGINAL 


5184 


025220 


005401 








NEC 


Rl 


(NUMBER 


5185 


025222 


005600 








SBC 


R0 




5186 


025224 


016602 


000020 




3S 1 


MOV 


20(SP),R2 


(PICKUP THE DIVISOR 


5187 


025230 


022702 


000001 






CMP 


tl,R2 


(IF THE DIVISOR IS 1 SKIP THE REST 


5188 


025234 


001463 








BEQ 


13$ 


(YES 


5189 


025236 


005702 








TST 


R2 




5 190 


025240 


002407 








blt 


4S 


(CHECK THE SIGN 


5191 


025242 


00301 1 








BGT 


5$ 


(DIVISOR OF IS A NO-NO 


5192 


025244 


052766 


000003 


3000 1 4 




BIS 


*3, ]4CSP) 


(SET "V" i "C" 


5193 


025252 


012700 


177777 






MOV 


«-l,R0 


(SET REMAINDER TO ALL ONES 






000424 










9t 


(EXIT 


5195 


025260 


005266 


000002 




4SI 


INC 


2(SP) 


(KEEP TRACK OF DIVISORS SIGN 


5196 


025264 


000401 








BR 


6$ 




5197 


025266 


005402 






5$t 


NEC 


R2 


[NEGATE THE ORIGINAL NUMBER 


5198 


025270 


000241 






6St 


CLC 




(CLEAR "C" 


5199 


025272 


000405 








BR 


8$ 


(START FORMING QUOTIENT 


5200 


925274 


006100 






Ttt 


ROL 




(POSITION MSB'S 
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5201 


025276 


010003 




MOV 


R0,R3 


(COPY 


5202 


025300 


060203 




ADD 


R2,F3 


(COMPRRE DIVIDEND t, DIVISOR 


5203 


025302 


103001 




BCC 


8$ 


(BR IF DIVIDEND > DIVISOR 


5204 


025304 


010300 




MOV 


R3. R0 


(REMAINDER AFTER THIS LOOP 


5205 


025306 


006101 


8ei 


BOL 


Rl 


(QUOTIENT BIT ENTERS HERE 


5206 


025310 


005316 




DEC 


(SP) 


(DONE? 


5207 


025312 


001370 




BNE 


7$ 


(BR IF NO 


5208 


025314 


005701 




TST 


Rl 


(OVERFLOW? 


5209 


025316 


100005 




BPL 


10$ 


(BR IF NO 


5210 


025320 


052766 


000002 000014 


BIS 


f2>14(8P) 


[SET "V" IN RETURN STATUS WORD 


5211 


025326 


005000 




CLR 


R0 


(SET REMAINDER TO ALL ZEROS 


5212 


025330 


010001 


9$: 


MOV 


R0»P1 


(COPY REMAINDER INTO QUOTIENT 


5213 


025332 


005726 


10$: 


TST 


(SP) + 


(CLEAR COUNTER FROM STACK 


5214 


025334 


005716 




TST 


(SP) 


(REMAINDER SIGN CORRECTION NEEDED? 


5215 


025336 


002004 




BGE 


11$ 


(BR IF NO 


5216 


025340 


005400 




NEC 


R0 


(NEGATE REMAINDER 


5217 


025342 


105066 


000001 


CLRB 


1 (SP) 


(CLEAR SIGN 


5218 


025346 


005316 




DEC 


(SP) 


(BUT DON'T FORGET QUOTIENT 


5219 


025350 


005726 


us: 


TST 


(SP) + 


(QUOTIENT SIGN CORRECTION NEEDED? 


5220 


025352 


001401 




BEQ 


12$ 


(BR IF NO 


5221 


025354 


005401 




NEG 


Rl 


(NEGATE QUOTIENT 


5222 


025356 


010166 


000020 12SI 


MOV 


R1,20(SP) 


(RETURN QUOTIENT AND 


5223 


025362 


010066 


000016 


MOV 


R0, 16(SP) 


[REMAINDER TO USER 


5224 


025366 


012603 




HOV 


(SP)4^,R3 


[POP STACK INTO R3 


5225 


025370 


012602 




MOV 


CSP)^ ,R2 


(POP STACK INTO R2 


5226 


025372 


012601 




MOV 


(SP)+,R1 


(POP STACK INTO Rl 


5227 


025374 


012600 




MOV 


(SP)+,R0 


[POP STACK INTO R0 


5228 


025376 


012666 


000002 


MOV 


(SP)+,2(SP) 


(SETUP TO RETURN CONDITION CODES 


5229 


025402 


000002 




RTI 




[RETURN 


5230 


025404 


022626 


13$ J 


CMP 


(SP)+, CSP)+ 


[POP THE STACK 


5231 


025406 


000763 




BR 


12$ 
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SEC 0138 



5232 






.SPTTt SAVE AND RESTORE R0-R5 ROUTINES 








5233 




















5234 








}«**••«««•••«««»•••«•*••*»*•**•*«'••»»***•****«***»*«'««**«'»#«••*• 


5235 








•SAVE R0-P5 












5236 








♦call; 












5237 








* SAVREG 












5238 








•UPON RETURN FROM SSAVREG THE STACK WILL 


LOOK like: 




5239 








♦ 












5240 








• TOP — (+16) 












5241 








• +2"-( + lB) 












5242 








♦ +4 — R5 












5243 








• +5 — R4 












5244 








♦ +8 — R3 












5245 








•+10---R2 












5246 








♦+12---R1 












5247 








♦+14---P0 












5248 




















5249 


025410 




SSAVRiG! 














»25410 


010046 




KOV 


R0,-CSP) 


(PUSH R0 


ON 


STACK 




5251 


025412 


010146 




MOV 


R1,-(SP) 


JPUSH Rl 


ON 


STACK 




5252 


025414 


010246 




MOV 


P2,-(SP) 


;PUSH R2 


ON 


STACK 




5253 


025416 


010346 




MOV 


R3,-{SP) 


(PUSH R3 


ON 


STACK 




5254 


025420 


010446 




MOV 


P4,-(SP) 


JPUSH R4 


ON 


STACK 




5255 


025422 


01 0546 




MOV 


R5,-(SP) 


JPUSH R5 


ON 


STACK 




5256 


025424 


016646 


030022 


HOV 


22(SP),-(SP) 


JSAVE PS 


OF 


MAIN FLOW 


5257 


025430 


016646 


000022 


MOV 


22(SP),-(SP) 


;SAVE PC 


OF 


MAIN FLOW 


5258 


025434 


016646 


000022 


HOV 


22(SP).-(SP) 


J SAVE PS 


OF 


CALL 




5259 


025440 


01 6646 


000022 


HOV 


22(SP),-(SP) 


JSAVE PC 


OF 


CALL 




5260 


025444 


000002 




PTI 












5261 




















5262 








•RESTORE R0-R5 












5263 








•call; 












5264 








• RESRFG 












5265 


025446 




SRESREG: 












5266 


025446 


012666 


000022 


HOV 


(SP)+,22(SP) 


! RESTORE 


PC 


OF CALL 




5267 


025452 


01 2666 


000022 


HOV 


(SP)+,22(SP) ;»RESTORE 


PS 


OF CALL 




5268 


025456 


01 2666 


000022 


HOV 


(SP)+,22(5P) JJRESTORE 


PC 


OF MAIN 


FLO« 


5269 


025462 


012666 


000022 


MOV 


(SP)+,22(SP) JJRESTORE 


PS 


OF MAIN 


FLOW 


5270 


«*25466 


012605 




MOV 


(SP)+,R5 !;POP STACK 


INTO R5 




5271 


025470 


012604 




MOV 


(SP)+,R4 


;POP STACK 


INTO R4 




5272 


025472 


012603 




MOV 


(SP)+,R3 


J POP STACK 


INTO R3 




5273 


025474 


012602 




MOV 


(SP)+,R2 


:POP STACK 


INTO R2 




5274 


025476 


012601 




MOV 


CSP)+,R1 


;POP STACK 


INTO Rl 




5275 


025500 


012600 




HOV 


(SP)+,Re 


:POP STACK 


INTO R0 




5276 


025502 


000002 




RTI 
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SEQ 0139 



5277 








.SBTTL RANDOM 


NUMBER GENERATOR ROUTINE 


5278 








;*CALL: 






5279 








;• JSR 


PCf SRAND 


CALL THE ROUTINE 


5280 








•• RETURN 


(RETURN HERE THE RANDOM 


52R1 








• « 




NUMBER WILL BE IN 


5282 








• ♦ 


;SHINUM,$LONl)M 


5283 


025504 






SRAND: 






52P4 


025504 


010046 




MOV 


Pa,-(SP) 


PUSH R0 ON STACK 


5285 


025506 


010146 




MOV 


R1,-(SP) 


PUSH Rl ON STACK 


5286 


025510 


010246 




MOV 


P2/-(SP) 


PUSH R2 ON STACK 


5287 


025512 


010346 




MOV 


R3,-(SP) 


PUSH F3 ON STACK 


5288 


025514 


010446 




MOV 


R4,-(SP) 


PUSH R4 ON STACK 


5289 


025516 


01 7604 


000012 


MOV 


iai2(SP),R4 


GET POINTER TO THE SAVED SEEDS 


5290 












FOR GENERATING THIS RANDOM NUMBER 


5291 


025522 


01 1 400 




MOV 


(R4) ,R0 


GET LO NUMBER SEED 


5292 


025524 


016401 


000002 


MOV 


2(R4) ,R1 


GET HIGH NUMBER SEED 


5293 


025530 


012703 


177771 


MOV 


«-7,R3 


SET SHIFT COUNT 


5204 


025534 


005002 




CLR 


R2 


ZERO R2 


5295 


025536 


006300 




1 S : ASL 


R0 


SHIFT R0 LEFT AND 


5296 


025540 


006101 




POL 


Rl 


ROTATE CARRY INTO Rl AND 


5297 


025542 


006102 




ROL 


R2 


ROTATE CARRY INTO R2 


5298 


025544 


005203 




INC 


P3 


CHECK FOR DONE 


5299 


025546 


001373 




PNE 


IS 


CONTINUE SHIFT LOOP 


5300 


025550 


061 400 




ADD 


(R4),R0 


ADD NUMBER TO MAKE X 129 


5 331 


025552 


005501 




ADC 


R 1 


PROPOGATE CARRY 


5302 


025554 


066401 


000002 


ADO 


2(R4),R1 


ADD NUMBER TO MAKE X 129 


5303 


025560 


005502 




ADC 


P2 


PROPOGATE CARRY 


5304 


025562 


062700 


001057 


ADD 


#1057, R0 


ADD LOW CONSTANT 


5305 


025566 


005501 




ADC 


Rl 


PROPOGATE CARRY 


5306 


025570 


005502 




ADC 


R2 


PROPOGATE CARRY 


5307 


025572 


062701 


047401 


ADD 


#47401 . Rl 


ADD HIGH CONSTANT 


5308 


025576 


005502 




ADC 


R2 


PROPOGATE CARRY 


5309 


025000 


062702 


000006 


ADD 


«5,R2 


ADD HIGHEST CONSTART 


5313 


025604 


060200 




ADD 


R2,P0 


PEPRIHE Re WITH HIGHEST DIGIT 


5311 


025606 


005501 




ADC 


Rl 


PROPOGATE CARRY 


5312 


025610 


010014 




MOV 


P0, (R4) 


SAVE R0-SLONUH (FOR USE NXT TIME) 


5313 


025612 


010164 


000002 


HOV 


R1,2(R4) 


SAVE Rl-SHINUM (FOR USE NXT TIME) 


5314 


025616 


012604 




MOV 


{SP)+,R4 




5315 


025620 


012603 




MOV 


(SP)+,R3 


POP STACK INTO R3 


5316 


025622 


012602 




MOV 


(SP)+,R2 


POP STACK INTO R2 


5317 


025624 


012601 




MOV 


CSP)+,P1 


POP STACK INTO PI 


5318 


025626 


01 2600 




MOV 


(SP)+,R0 


POP STACK INTO R0 


5319 


025630 


062716 


000002 


ADD 


«2, (SP) 


ADJUST SP FOR CORRECT RETURN 


5370 


025634 


000207 




PIS 


PC 


RETURN 


5 321 


025636 


1 23456 




RSDRVL: 123456 




RANDOM SEED FOR DRIVE SELECTION (LO) 


5322 


025640 


176543 




RSDRVH; 176543 




" " (HI) 


5 323 


025642 


001201 




RSFUNL; 1201 




RANDOM SEED FOR FUNCTION 


5324 


025644 


062465 




PSFUNH: 62465 




" " (HI) 


5325 


025646 


176105 




RSCVLL: 176105 




RANDOM SEED FOR CYLINDER (LO) 


5326 


025650 


174532 




RSCYLH: 174532 




" » (HI) 


5327 


025652 


157650 




R5BAL; 157650 




RANDOM SEED FOR BUS "AOOPESS (LO) 


5328 


025654 


030753 




RSBAH: 30753 




" " (HI) 


5329 


025656 


131547 




RSWCL: 131547 




RANDOM SEED FOR WORD COUNT (LO) 


5330 


025660 


032070 




RSniCH: 32070 




" " (HI) 


5331 


025662 


123456 




RSDTL; 123455 




RANDOM SEED FOR DATA (LO) 


5 332 


025664 


176543 




RSDTH: 176543 




" " (HI) 
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53J3 








ii'ii 








5335 








5336 








5337 








5338 








5339 








5 340 








5341 








5342 








5 343 








5344 








5345 








5346 








5347 








5343 








5349 








5350 








5351 








5352 








5353 








5354 








5355 








5356 








5357 








5358 


025666 


017646 


000000 


5359 


025672 


1 1 6637 


000001 


5360 


025700 


1 12637 


02611 3 


5361 


025704 


062716 


000002 


5362 


0257 10 


000406 




5363 


025712 


1 12737 


000001 


5364 


025720 


I 127J7 


000006 


5365 


025726 


112737 


000005 


5366 


025734 


010346 




5367 


025736 


010446 




5368 


025740 


010546 




5369 


025742 


113704 


026113 


5370 


025746 


005404 




5371 


025750 


062704 


000006 


5372 


025754 


110437 


026112 


5373 


025760 


1 1 3704 


0261 1 1 


5374 


025764 


016605 


000012 


5375 


025770 


005003 




5 376 


025772 


006105 




5377 


025774 


000404 




5 378 


025776 


006105 




5379 


026000 


006105 




5380 


026002 


006105 




5381 


026004 


010503 




53S2 


026006 


006103 




5383 


026010 


105337 


026112 


5384 


026014 


100016 




5385 


026016 


042703 


177770 


5386 


026022 


001002 




5387 


026024 


005704 




5388 


026026 


001403 





026111 
026113 
026110 



.SBTTL BINAPY TO OCTAL (ASCII) AND TYPE 

1 1 v********************************* »««»**«•*••••••»» •*»•**•••*•• 

J»TH15 BOUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGJT 
J'OCTAL (ASCII) NUMBER AND TYPE IT, 

»»$TYPOS— EHTER HERE TO SETUP SUPPRESS ZEROS AND NU"«BER OF DIGITS TO TifP 
t*CALLl 

>• MOV NUM,-(SP) ((NUMBER TO BE TYPED 

}* TYPOS ((CALL FOR TYPEOUT 

!• .BYTE N >(N»1 TO S FOR NUMBER OF DIGITS TO TYPE 

.BYTE M ! (MBl OR 

;« ({IsTYPE LEADING ZEROS 

1* (|0eSUPPRESS LEADING ZEROS 

!• 

[»»TYPON— -ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 

(•STYPOS OR STYPOC 

J»CALL! 

J» MOV NUM,-(SP) ((NUMBER TO BE TYPED 

(♦ TYPON ((CALL FOR TYPEOUT 

>• 

(•$TYPOC — -ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
(•CALL! 

»♦ MOV NUM,-(SP) ((NUMBER TO BE TYPED 

J» TYPOC ((CALL FOR TYPEOUT 

; (PICKUP THE MODE 
;»LOAD ZERO FILL SWITCH 
((NUMBER or DIGITS TO TYPE 
((ADJUST RETURN ADDRESS 

((SET THE ZERO FILL SWITCH 
((SET FOR SIX(6} DIGITS 
((SET THE ITERATION COUNT 
((SAVE R3 
((SAVE R4 
((SAVE R5 

((GET THE NUMBER OF DIGITS TO TYPE 

(SUBTRACT IT FOR MAX. ALLOWED 
(SAVE IT FOR USE 
(GET THE ZERO FILL SWITCH 
(PICKUP THE INPUT NUMBER 
(CLEAR THE OUTPUT WORD 
(ROTATE MSB INTO "C 
(GO DO MSB 
((FORM THIS DIGIT 



((GET LSB OF THIS DIGIT 

( (TYPE THIS DIGIT? 

[(BP IF NO 

((GET RID OF JUNK 

((TEST FOR 

( (SUPPRESS THIS a? 

{(BR IF YES 



MOV 


*CSP),-CSP) 


HOVb 


1CSP),«0FILL 


MOVE 


CSP)+»80MODE+1 


ADD 


t2i (SP) 


BR 


STYPON 


MOVB 


*l,OFILL 


HOVB 


»6rS0H0DE4-l 


HOVB 


•S>(OCNT 


MOV 


P3,-(SP) 


MOV 


R4,-(SP) 


MOV 


R5,-(SP) 


MOVB 


«OHODE+1,R4 


NEC 


R4 


ADD 


«6rR4 


HOVB 


R4f tOMODE 


MOVB 


t0FILL.R4 


MOV 


12(SP),R5 


CLR 


R3 


ROL 


R5 


BR 


3S 


ROL 


R5 


ROL 


R5 


ROL 


RS 


MOV 


R5,R3 


ROL 


R3 


DECB 


(OMODE 


BPL 


7» 


BIC 


•177770, R3 


BNE 


4$ 


TST 


R4 


BEO 


5$ 
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ERKhF."'! 1' 


-SEP-76 


08157 


Binary 


TO OCTAL 


(ASCII) AND 


TYPE 


5389 


026030 


005304 




411 


INC 


R4 


({DON'T SUPPRESS ANYMORE 0'S 


5390 


036032 


053703 


000060 




SIS 


*'0,R3 


{(MAKE THIS DIGIT ASCII 


5391 


026036 


052703 


000040 


511 


BIS 


1' ,R3 


((MAKE ASCII IF NOT ALREADY 


5392 


026042 


110337 


026106 




MOVB 


R3.BI 


((SAVE FOR TYPING 


5393 


026046 


104401 


036106 




TYPE 


.8t 


((GO TYPE THIS DIGIT 


5394 


026052 


105337 


026110 


7lt 


DECB 


tOCNT 


{(COUNT BY 1 


5395 


026056 


003347 






BGT 


31 


{(BR IF MORE TO DO 


5396 


036060 


002402 






BLT 


61 


{(BR ir DONE 


5397 


036062 


005204 






INC 


R4 


{(INSURE LAST DIGIT ISN'T A BLAVK 


5398 


036064 


000744 






BR 


2* 


{(CO DO THE LAST DIGIT 


5399 


036066 


012605 




6tl 


MOV 


(SP)+,R5 


{{RESTORE R5 


5400 


036070 


013604 






MOV 


(SP}t>R4 


{{RESTORE R4 


5401 


026072 


012603 






MOV 


CSP)f ,R3 


{{RESTORE R3 


5402 


036074 


016666 


000002 


000004 


MOV 


2(SP),4(SP} 


{{SET THE STACK FOR RETURNING 


5403 


036102 


012616 






MOV 


(SP)t, (SP) 




5404 


036104 


000002 






RTl 




1 1 RETURN 


5405 


036106 


000 




8(1 


.BYTE 





{{STORAGE FOR ASCII DIGIT 


5406 


026107 


000 






.BYTE 





{{TERMINATOR FOR TYPE ROUTINE 


5407 


036110 


000 




lOCNTJ 


.BYTE 





{{OCTAL DIGIT COUNTER 


5408 


026111 


000 




«0FILL> 


.BYTE 





{{ZERO FILL SWITCH 


5409 


026112 


000000 




iomode: 


.WORD 





((NUMBER OF DIGITS TO TYPE 


5410 
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SEQ 0142 



541 1 
5412 
541 1 
5414 
5415 
5416 
5417 
5418 
5419 
5120 
5421 
5422 
542J 
5424 
5425 
5426 
5427 
542« 
5429 
5430 
5431 
5432 
5413 
5 134 
5135 
5436 
5437 
5438 
5439 
5440 
5441 
5442 
5443 
5444 
5445 
5446 
5447 
5449 
5449 
5450 
5451 
5452 
5453 
5454 
5455 
5456 
5457 
5458 
5459 
5460 
5461 
5462 
5463 
5464 
5465 
5466 



026114 
026116 
026122 
026124 
0261 32 
025140 
026142 
026146 


104407 
105237 
001774 
013777 
032777 
001 402 
104401 
005237 


001103 

001102 
002000 

001206 
001112 


153010 
1 53000 


026152 
026160 


032777 
001415 


000004 


152760 


026162 
026164 
026170 


010145 
013701 
100410 


0t>1250 




026172 
026176 
026204 
026206 


105261 
126127 
101402 
000137 


001542 
001542 

016220 


000003 


026212 


012601 






026214 
026220 
026226 
026230 
026234 
026240 
026242 


011637 
162737 
005046 
117716 
121627 
002402 
162716 


001116 
000002 

152662 
000100 

000040 


001116 



.SBTTL ERROR HANDLER ROUTINE 

|«SW153l HALT ON ERROR 

j«SW13*l INHIBIT ERROR lYPEOUTS 

>»S«I12*1 TltPE OUT THE ERROR HISTORY. THE FUNCTION THAT 

t WAS BEING PERFORMED ON RK AT THE TIME OF ERROR AND 

) THE FUNCTION PERFORMED PRIOR TO THAT. 

;*NOTE THIS SWITCH OPTION C12) IS MEANINGFUL ONLY FOR ERRORS OCCURING IN THE 

J»EXERCISER PART OF THE PROGRAM. 

>»SWllE| DUMP OUT ALL RK REGISTERS 

>*SW10al BELL ON ERROR 

••SW09=1 LOOP ON ERROR 

(•Swa3al TYPE OUT TIME AT WHICH ERROR OCCURED 

;*SI«023l DROP THE DRIVE AFTER MAXM ERORS ON THIS DRIVE 

,«SW01>1 TYPE OUT THE SERIAL NUMBER OF THE ERRORING DRIVE 
;#G0 TO SERRTYP ON ERROR 



«EPRORI CKSWR 
INCB 
BEO 
MOV 
BIT 
BEO 
TYPE 
INC 



BIT 
BEO 

MOV 
MOV 
BMI 



IS! 



2S! 
3Si 



INCB 
CMPB 
BLOS 
JKP 

MOV 

MOV 

SUB 

CLR 

MOVB 

CMPB 

BLT 

SUB 



SERFLO 
(ERROR 

$TSTNH,9DISPLAY 
iSW10,!aSWR 

is 

>SBELL 
SERTTL 

»SW2,(ISWP 
3S 

R1,-CSP) 
SRDRV.Rl 
2S 



ERORVCRl) 

ERDRV(B13,I3 

2$ 

DSELCT 

CSP}'f ,R1 

(SP),SERRPC 

*2>$ERRPC 

-CSP) 

?SERRPC, (SP3 

(SP),(100 

4S 

«40> CSP) 



{LOOK FOR A 'CONTROL G' 
SET THE ERROR FLAG 
DON'T LET THE FLAG GO TO ZERO 
DISPLAY TEST NUMBER AND ERROR FLAG 
BELL ON ERR0R7 
NO - SKIP 
RING BELL 

COUNT THE NUMBER OF ERRORS 

COUNT i OF ERORS i DROP DRVE? 

NO 

YES 

SAVE R). 

GET ERRORING DRIVE t 
IF CSRDRV}3 -1, SKIPCBECAUSE THE 
EROR WAS NOT ATTRIBUTABLE TO ANY 
SPECIFIC DRIVE) 

COUNT <t OF ERORS ON THIS DRIVE 

t OF ERORS GREATER THAN ALLOWABLE? 

NO 

DROP THE DRIVE 
RESTORE Rl 

GET ADDRESS OF ERROR INSTRUCTION 



fSTRIP AND SAVE THE ERROR ITEM CODE 
;FORH THE C04$ECT ITEHB IF THIS IS AN 
;ERO!>. MESAGE EQUAL OR ABOVE 100. 
;NOTE THERE R 2 CLASSES OF ERRORS: 
;1) SITEMB'S BELOW 100 
;2) $ITEM8'5 ABOVE 100 

{SUBTRACTION FACTOR HAS TOBE SUCH THAT 
JTHE C04SECT OFFSET IS SELECTED. THIS 
{FACTOR WILL CHANGE IF THE TOTAL # OF 
{ERROR MESSAGES IN CLASS 1 CHANGES. 
{#=100 -LAST ITEM IN t CLASS 1 - 1 
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08:57 


ERROR 


HANDLER 


ROUTINE 




5457 


026246 


012637 


001114 


4S! 


MOV 


CSP)+,SITEMB 




5468 


026252 


032777 


020000 


152660 


BIT 


tSMl3>asWR 


{SKIP TYPEOUT IF SET 


5469 


026260 


001012 






BNE 


SS 


{SKIP TYPEOUTS 


5470 


026262 


004737 


026370 




JSR 


PC»fi#SERRTYP 


{GO TO USER ERROR ROUTINE 


5471 


026266 


104401 


001213 




TYPE 


f SCRLF 




5472 
















5473 


026272 


032777 


010000 


152640 


BIT 


«SW12, ASWR 


{TYPE ERROR HISTORY? 


5474 


026300 


001402 






BEO 


5S 


{WO 


5475 


026302 


004737 


020334 




JSR 


PCHISTRY 


{YES 


5476 
















5477 


026306 


005777 


152626 


5S: 


TST 


aSNR 


{HALT ON ERROR 


5178 


026312 


100002 






PPL 


6S 


{SKIP IF CONTINUE 


5479 


026314 


000000 






HALT 




{HALT ON ERROR 1 


54ft0 


026316 


104407 






CKSWR 




{LOOK FOP A 'CONTROL G' 


5481 


026320 


032777 


001000 


152612 bS: 


BIT 


tSM09,iaSWR 


{LOOP ON ERROR SWITCH SET? 


54«2 


026326 


001411 






BEQ 


7$ 


{BR IF NO 


5483 


026330 


123727 


001 114 


000040 


CMPB 


$ITEMB,«40 


{THERE R 37 ERROR MESSAGES IN CLASS 1 


5484 


026336 


10301 1 






BHIS 


8$ 




5485 


026340 


013746 


001244 




MOV 


PPRLVL,-CSP) 


{LOCK OUT ALL INTERUPTS ON RETURN 


5486 














{FROM THIS EROR HANDLERr IF THE EROR 


5497 














{IS IN EXERCISER k LOOPING IS TO 


54R8 














{BE DONE 


5489 


026344 


005725 






TST 


CSP) + 




5 190 


026346 


012716 


015634 




MOV 


»EXCRLUP,(SP) 


{IF THIS ERROR CALL WAS FROM EXERCISER 


5491 














{PART OF THE PROGBAHf GO TO 'EXCRLUP' 


54<)2 














{OTHERWISE RETURN THRU 'tLUPERR' 


5493 
















5494 


026352 


012737 


177777 


001250 7S] 


HOV 


«-l »SRDRV 


{RESET SERIAL NO FLAG 


5495 














{IF (SRDRV)«-1, THEN THE SERIAL 


5496 














{NO OF THE DRIVE WILL NOT BE 


5497 














{TYPED OUT. 


5498 














{OTHERWISE, SERIAL NO FOR THE DRIVE 


51<}9 














{» IN 'SRDRV WILL BE TYPED. 


5500 


026360 


000002 






RTI 






55i»l 


026362 


013715 


001110 


e$: 


HOV 


SLPERR, (SP) 


{FUDGE RETURN FOR LOOPING 


5502 


026366 


000771 






BR 


7S 


{RETURN 
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SeO 



5503 










.5BTTL 


ERROR 


MESSAGE TYPEOUT 


ROUTINE 


5504 


















5505 










;*THIS 


ROUTINE 


' USES THE "ITEM 


CONTROL BYTE" CSITEMB) TO DETERMINE l»HICH 


5506 










;»ERROP 


IS TO 


BE REPORTED. IT 


THEN 0BTAINS> FROM THE "ERROR TABLE" CSERBTB) 


5507 










!»AND REPORTS 


THE APPROPRIATE 


INFORMATION CONCERNING THE ERROR. 


5508 


















5509 


















5510 


026370 


104401 


001 213 




serrtyp:type 


1 SCRLF 


> CARRIAGE RETURN" & LINE FEED 


551 1 


026374 


010046 








HOV 


R0» -CSP) 


;Save R0 


551 2 


026376 


005000 








CLR 


R0 


;PICKUP THE ITEM INDEX 


5513 


026400 


153700 


001 114 






BISB 


9#SITEHB> R0 




5514 


026404 


001004 








BNE 


IS 


"IF ITEM NUMBER IS ZERO^ JUST 


551 5 


026406 


013746 


001 116 






MOV 


SERRPCr "CSP) 


•TYPE THE PC OF THE ERROR 


551 6 


026412 


104402 








TYPOC 






55l7 


036414 


000425 








BR 


5t 


(GET OUT 


551 8 


026416 


005 300 






1$; 


DEC 


R0 


;ADJUST THE INDEX SO THAT IT WILL 


551 9 


026420 


006300 








ASL 


R0 


(WORK FOR THE ERROR TABLE 


5520 


026422 


006300 








ASL 


R0 




5521 


026424 


006300 








ASL 


R0 




5522 


026426 


062700 


002666 






ADD 


»$ERRTB»R0 


jFOBM TABLE POINTER 


5523 


026432 


012037 


026442 






MOV 


t R0) + » 2S 


;PICKUP "EPROR MESSAGE" POINTER 


5524 


026436 


001 404 








BEQ 


43 


JSKIP TYPEOUT IF NO POINTER 




026440 


104401 








TYPE 




{TYPE THE "ERROR MESSAGE" 


5526 


026442 


000000 






2$: 


.WORD 





! "ERROR MESSAGE" POINTER GOES HERE 


5527 


026444 


104401 


001 21 3 




3S: 


TYPE 


» SCRLF 


{"CARRIAGE RETURN" & "LINE FEED" 


5528 


026450 


032777 


004000 


152462 


4S: 


BIT 


*SW1 1 , 9SWR 


{DUMP OUT RK REGISTERS? 


5529 


026456 


001 404 








BEQ 


SS 




5530 


026460 


0047 37 


026730 






JSR 


PC» DMPREG 


;G0 TYPE OUT RK REGISTERS 


5531 


026464 


104401 


001 21 3 






TYPE 


»SCRLF 




5532 


















5533 


026470 


01 2037 


026500 




5$; 


HOV 


(R0)+(6$ 


JPICKUP "DATA HEADER" POINTER 


5534 


026474 


001 404 








BEQ 


7$ 


{SKIP TYPEOUT IF 


5535 


026476 


1 04401 








TYPE 




•TYPE THE "DATA HEADER" 


5536 


026500 


000000 






6S 1 


.WORD 





{"DATA HEADER" POINTER GOES HERE 


55 37 


026502 


1 04401 


001 2 1 3 






TYPE 


f SCRLF 


{"CARRIAGE RETURN" fc "LINE FEED" 


5538 


026506 


01 1000 






7S I 


HOV 


C R0) # P0 


{PICKUP "DATA TABLE" POINTER 


5539 


026510 


001 406 








BEQ 


98 




5540 


















5541 
















(TYPE AN OCTAL NUMBER 


5542 


026512 


01 3046 






8S • 


MOV 


8CR0)+f-(SP) 


('SAVE 9(R0)+ FOR TYPEOUT 


5543 


026514 


I 04402 








TYPOC 




!G0 TYPE— OCTAL ASCIKALL DIGITS) 


5544 


026516 


104401 


002663 






TYPE 


1 BLNKS2 


{TYPE TW0C2) SPACES 


5545 


026522 


0057 10 








TST 


( R0) 


{IS THERE ANOTHER NUMBER? 


5545 


026524 


001 372 








BNE 


6S 


{BR IF YES 


5547 


















5548 


026526 


012600 






9SI 


MOV 


ISP)+, R0 


{RESTORE R0 


5549 


026530 


1 04401 


001213 






TYPE 


» SCRLF 


{"CARRIAGE RETURN" i< "LINE FEED" 


5550 






001114 


000040 




CHPB 




.ClfTD TTMC C CE'DT&r i PftD 
{Dl^lr I XnE. At OCiKXAu * t \Jt^ 


5551 
















{NON-EXERCISER ERORS 


5552 


026542 


103004 








6KIS 


10S 




5553 


026544 


004737 


026556 






JSR 


PC»TIHTYP 


{TYPE OUT TIME IF SW 3 IS SET 


5554 


026550 


004737 


026664 






JSR 


PC.SNOTYP 


{GO TYPE OUT THE SERIAL i OF THE 


5555 
















{ERRORING DRIVE, IF SW 1 IS SET. 


5556 


026554 


000207 






10S: 


BTS 


PC 


{RETURN 
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ZRKHF.Pll 


J2-SEP«76 


08157 


EPROR 


MESSAGE 


TYPEOUT ROUTINE 




5557 








{TIMTYP 






5558 








{THIS 


ROUTINE 


TYPES THE TIME IN 


hours:kin:secs if sw 3 ij 


5559 








{SW 3 


SHOULD MOT BE SET IF KWIU 


IS NOT PRESENT. 


5560 
















5561 


026555 


032777 


000010 


152354 TIMTYP! BIT 


«SW3,8SWR 


{IS SH 3 SET? 


5562 


026564 


001434 






BEQ 


. 4$ 


{IF NOT SKIP Typing time 


5553 


026566 


104401 


002652 




TYPE 


>MSG29 


{ 'TIME' 


5564 


026572 


104401 


002662 




TYPE 


,BLNKS3 




5565 


026576 


104414 






SAVREG 




{SAVE R0-R4 


5566 


026600 


012700 


001552 




MOV 


*KWHR,R0 


{INITIALIZE POINTER 


5567 


026604 


012001 






MOV 


(R0)+,R1 




5568 


026606 


000404 






BR 


2S 




5569 


026610 


012001 




is: 


MOV 


CR0)+,R1 


{TYPE OUT 


5570 


026612 


001402 






BEQ 


2$ 




5571 


026614 


062701 


000074 




ADD 


•60,,R1 




5572 


026620 


010137 


026660 


2s: 


HOV 


Rl,5« 




5573 


026624 


012746 


026660 




MOV 


«5S,-(SP) 


{HOURS!MINSISECS 


5574 


026630 


004737 


024512 




JSR 


PC,9»$DB2D 


{CONVERT TO ASCIZ STRING 


5575 


026634 


004737 


024706 




JSR 


PC^iSUPRSL 


{GO TYPE 


5576 


026640 


020027 


001560 




CMP 


R0,t(KWSEC-f2 


{ALL DONE? 


5577 


026644 


001403 






BEQ 


3$ 




5578 


026646 


104401 


002334 




TYPE 


,HSG18 




5579 


026652 


000756 






BR 


IS 




5580 


026654 


104415 




3S: 


RESREG 




{RESTORE R0-R4 


5581 


026656 


000207 




4S: 


RT5 


PC 


(RETURN 


5592 


026660 


000000 


000000 


5s: 


.WORD 


0,0 
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SEQ 0146 



5583 








;SNOTyP 










55f4 








;this routine 


TYPES OUT THE SERIAL NUMBER OF THE ERRORING DRIVE. 


IF SW 1 


5585 








SIS SET 


NOTE 


THAT THE SERIAL 


NUMBER IS TYPED OUT ONLY WHEN THE 


DRIVE 


5596 








.■CAN BE 


IDENTIFIED POSITIVELY, 


AS THE ONE WHICH GAVE THE ERROR. 


IF THE 


5597 








;ERROP CANNOT 


BE ATTRIBUTED TO 


ANY SPECIFIC DRIVE < (SRDRV)= -1> 


THEN 


5588 








JTHE SERIAL NUMBER IS NOT TYPED OUT. 




5599 


















5590 


026664 


032777 


000002 


152246 5N0TYPS 


BIT 


>SW1 , eSMR 


;TYPE OUT SERIAL #7 




5591 


026672 


001415 






BEQ 


2$ 


;no 




5592 


026674 


010146 






MOV 


Rlf-CSP) 


;SAVE Rl 




5593 


026676 


01 3701 


001 250 




MOV 


SRDRV,R1 


;GEI ERRORING DRIVE # 




5594 


026702 


006301 






ASL 


Bl 


;IF CSR0RV)« -1, SKIP (BECAUSE 




5595 


026704 


100407 






BMl 


IS 


;IHE ERROR HAS NOT ATTRIBUTABLE 




5596 














;T0 A SPECIFIC DRIVE3 




5597 


026706 


104401 


001 21 3 




TYPE 


, SCRLF 






5598 


026712 


104401 


002326 




TYPE 


,MSG17 


JTYPE "SR. N08" 




5599 


026716 


016146 


001266 




MOV 


SRM0CR1),-CSP5 


;GET THE SERIAL » 




5600 


026722 


104405 






TYPDS 




8TYPE IT OUT (DECIMAL) 




5601 


















5602 


026724 


012601 




ISS 


MOV 


CSP)+,B1 


;RESTORE Rl 




56(»3 


026726 


000207 




2S; 


BTS 


PC 


! RETURN 




5604 


















5635 


















5606 


















5607 








JDMPREG 










5608 








;THIS ROUTINE 


DUMPS OUT ALL RKll REGISTERS WHEN SW H IS SET AND 


AN ERROR 


5609 


















5610 


026730 






DMPREG8 










561 1 


026730 


104401 


025736 




TYPE 


>65S 


;;type asciz string 




5612 


P26734 


000441 








64S 


;!GET OVER THE ASCIZ 




5613 








J J65S: 


.ASCIZ 


<15><12>/ PC 


RKDS RKER PKCS RKWC 


RKBA 


5614 


027040 






64S: 










5615 


027040 


01 3746 


001 1 16 




MOV 


SERRPC.-(SP) 






5616 


H27044 


104402 






TYPOC 








561 7 


027046 


104401 


002663 




TYPE 


,BLNKS2 






561 8 


027052 


1 0046 






MOV 


R0,-CSP) 






561 9 


027054 


012700 


001216 




MOV 


iRKDS,R0 






5620 


027060 


013046 




is; 


MOV 


9CR0J+.-(SP5 






5621 


027062 


104402 






TYPOC 








5622 


027064 


104401 


002663 




TYPE 


,BLNKS2 






5623 


027070 


020027 


001232 




CMP 


R0»tRKOB 






5624 


027074 


003771 






BLE 


IS 






5625 


027076 


012600 






MOV 


CSP)+,B0 






5626 


027100 


000207 






RTS 


PC 
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SEa 2147 



5627 










.SBTTL SCOPE 


HANDLER ROUTINE 




5628 
















5629 










• • ««»»**»••*••»*«'«»«*»»•»«»«*««•*«•«•*•••»**»«»••»•••«••*••»«*•*• 


5630 










;#this routine 


CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 


5631 










;*AnD load THE 


TEST NUmBER(ST5T,MM) INTO THE DISPLAY REG, (DISPLAy<7 8 0> ) 


5632 










;»AND LOAD THE 


ERROR FLAG (SERFLG) INTO DISPLA Y<1 5 : 08> 


5633 










;«THE SWITCH OPTIONS PROVIDED BY 


THIS ROUTINE ARE: 


5634 










;*S«il4sl 


LOOP ON TEST 




5635 










;»SW09»1 


LOOP ON ERROR 




5636 










:»CALL 






5637 










SCOPE 


1 ;SCOPE= 


lOT 


5o38 
















5639 


B27102 








sscope: 






5540 


027102 


104407 






CKSWR 




SfTEST FOB CHANGE IN SOFT-SUR 


5641 


027104 


032777 


040000 


152026 


is: BIT 


«BIT14,(aS»R 


;;loop on present test? 


5642 


027112 


001047 






BNE 


SOVFR 


; f YES IF SW14=1 


5643 










;l«#t»SIAPT OF 


CODE FOR THE XOR 


testeb#»««# 


5644 


027114 


000416 






SXTSTR! BR 


6S 


;)IF RUNNING ON THE "XOR" TESTER CHANGE 


5645 














;iTHIS INSTRUCTION TO A "NOP" (NOP«240) 


5646 


027116 


013746 


000004 




MOV 


a»EBRVEC,-(SP) 


;!SAVE THE CONTENTS OF THE ERROR VECTOR 


5647 


027122 


012737 


027142 


000004 


MOV 


»5S,a»ERRVEC 


;jSET FOR TIMEOUT 


5648 


0271 30 


005737 


1 77060 




TST 


(81177060 


; (TIME OUT ON XOR? 


5649 


027134 


012637 


000004 




MOV 


(SP)+,S»EBRVEC 


RESTORE THE ERROR VECTOR 


5650 


027140 


000421 






BR 


SSVLAO 


:;G0 TO THE NEXT TEST 


5651 


02714? 


022626 






5$! CMP 


(SP)+, CSP)+ 


TjCLEAR THE STACK AFTER A TIME OUT 


5652 


027144 


012637 


000004 




MOV 


(SP) + ,(»#ERRVEC 


;;RESTORE THE ERROR VECTOR 


5b53 


027150 


0^0407 






BR 


7S 


;;LOOP ON THE PRESENT TEST 


5654 


027152 








6S:!i«»«»END OF CODE FOR THE XOR 


TESTER***!* 


5655 


027152 


105737 


001103 




2$: TSTB 


SERFLG 


;;HAS AN ERROR OCCURRED? 


5o56 


027156 


001 412 






BEQ 


SSVLAO 


;jBR IF NO 


5657 


027160 


032777 


0010efi 


151 752 


BIT 


#BIT09, 9SWR 


;;LOOP ON ERROR? 


5558 


027166 


001 404 






BECi 


4S 


;;6B IF NO 


5659 


027170 


013737 


001110 


001 106 


7S: MOV 


SLPERP.SLPADR 


JJSET LOOP ADDRESS TO LAST SCOPE 


5h6i? 


027176 


000415 






BR 


SOVER 




5661 


027200 


105037 


001 103 




4S: CLRB 


SERFLG 


;!ZERO THE ERROR FLAG 


5662 


027204 


105237 


001102 




SSVLADs INCP 


STSTNH 


JjCOUNT TEST NUMBERS 


5663 


027210 


01 1637 


001 106 




MOV 


(SPl.SLPADR 


JJSAVE SCOPE LOOP ADDRESS 


5664 


H27214 


011637 


001110 




MOV 


(SP),SLPEPR 


; J SAVE ERROR LOOP ADDRESS 


5665 


027220 


005037 


001204 




CLP 


SESCAPE 


JSCLEAR THE ESCAPE FROM ERROR ADDRESS 


5666 


027224 


112737 


000001 


001 1 15 


MOVB 


ll.SEBMAX 


MONLY ALLOW ONE(l) ERROR ON NEXT TEST 


5567 


027232 


013777 


001102 


151702 


SOVER: MOV 


STSTMH,(9DISPLAY 


;;D1SPLAY TEST NUMBER 


5668 


«27240 


013716 


001 106 




MOV 


SLPAOR, (SP) 


; J FUDGE RETURN ADDRESS 


5669 


1127244 


000002 






BTI 




;;FIXES PS 
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5671 






5672 






























5677 






5678 


027346 


1 0046 


5679 


027250 


01 6600 


5660 


027254 








lit 000 




027 260 




5683 


027262 




568 4 


027266 




56ft5 






5686 












5668 








027270 


01 1646 




027272 


016666 




V ^ f JI9k? 


000002 


5692 












5694 












5696 






5697 






5698 






5699 








027302 


027270 








^7 9 


027 306 


0257 12 


57|}3 


027310 


025666 


5704 


02731 2 


025726 


5705 


027314 


023726 


5 706 








0273 1 6 


022742 


5700 






5 709 


027320 


022672 


57 1 ^ 


027322 


0231 54 


57 1 1 


027324 


023274 


57)2 






4 1 

3/13 


027330 


023550 


57l4 


027332 


025410 


5715 


027334 


035446 


5716 


tf27336 


022264 


5717 


027340 


022272 


57)8 


027342 


022152 


57l9 


027344 


022430 


5720 







.SBTTL TRAP DECODER 

I )«•««•»«**••«•*•*•»«»»•••••••«»•••••••»•••«*«••*••••»•«•••••**«« 

J»THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE "TRAP" INSTRUCTION 
;»AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
>»0F THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
)»G0 TO THAT ROUTINE, 

«TRAPI 



000004 000002 



MOV 


R0,-t8P) 


USAVE R0 


HOV 


3{SP>,R0 


;>CET TRAP ADDRESS 


TST 


-(R0) 


; (BACKUP BY 2 


MOVB 


(R0],R0 


nOET RIGHT BYTE OF TRAP 


ASL 


R0 


!*POSITION FOR INDEXING 


HOV 


tTRPAD(R0}rR0 


; (INDEX TO TABLE 


RTS 


R0 


((GO TO ROUTINE 


IS USE 


TO HANDLE THE " 


GETPRI" MACRO 


MOV 


(SP)»-(SP) 


((MOVE THE PC DOWN 


HOV 


4(SP),2(SP] 


; (MOVE THE PSW DOWN 


RTI 




;» RESTORE THE PSW 



.SBTTL TRAP TABLE 

{♦THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
(•BY THE "TRAP" INSTRUCTION. 

( ROUTINE 



.WORD 

STYPE 

STYPOC 

8TYP0S 

STYPON 

ITYPDS 

SGTSWR 

SCKSWR 

»RDCHR 

SRDLIn 

SRDOCT 

SRDDEC 

$SAVREG 

SRESREG 

CH.RSI 

CN.RDY 

DR.RST 

TY.MSG 



STRAPS 
» (CALL»TYPE 
( (CALL»TYP0C 
( (CALL»TYPOS 
( (CALL»TYPON 
) (CALL«TYPDS 



TRAP+IC 104401) TIY TYPEOUT ROUTINE 

TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS} 

TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 

TRAPt4( 104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 

TRAP+5( 104405) TYPE DECIMAL NUMBER (WITH SIGN) 

TRAPt6(104406) GET S0FT-8WR SETTING 



((CALL»CKSHR TRAP+7 
(ICALL"RDCHR TRaP+1 
((CALL«RDLlN TRAPtl 
((CALLhRDOCT TRAP+1 
((CALLaRODEC TRAPtl 
((CALL-SAVREG IRAP+l 
((CALL'RESREG TRAPtl 
((CALL-CON. RESET 
l(CALL«C0N.RDY TRAPtl 
( (CALLbORV. RESET 
( ICALL«TVPMSG TPAPt2 



(104407) TEST FOR CHANGE IN SOFT-SWB 
0(104410) TTY TYPEIN CHARACTER ROUTINE 
1(104411) TTY TYPEiN STRING RqUTInE 
2(104412) READ AN OCTAL NUMBER FROM TTY 
3(104413) READ A DECIMAL NUMBER FROM TTY 
4(104414) SAVE R0-R5 ROUTINE 
5(104415) RESTORE R0-R5 ROUTINE 

TRAPtl6(104416) CONTROL RESET ROUTINE 
7(104417) WAIT FOR CONTROL READY 

TRAPt20(104420) DRIVE RESET ROUTINE 
1(104421) TYPE MESSAGE ROUIINEi SW13 



aWDEC 


-11-DZRKH-F 


MACYll 


27(1006) 


04-OCT 


-76 13(29 PAGE 136 




SRKHF.plI 22-SEP-76 


08157 




POWER DOWN AND 


Up ROUTINES 




57J1 










.SBTTL 


POWER 


DOWN AND UP ROUTINES 


5722 


















5723 










( (••••••*•••«••«••*•*••••*•»••«•••••***•««••«*••••*•»•*«••**••••» 


572* 










(POWER 


DOWN ROUTINE 




5725 


027346 


013737 


027512 


000024 


IPWROnI 


HoV 


tllLLUP'f *PMRVEC 


( (SET FOR FAST UP 


5726 


027354 


013737 


000340 


000036 




MOV 


»340.li«PWRVECt2 


;(PRI0(7 


5727 


027362 


010046 








HOV 


R0,-(SP) 


((PUSH R0 ON STACK 


5728 


027364 


010146 








MOV 


Rlr-(SP) 


((PUSH Rl ON STACK 


5729 


027366 


010346 








MOV 


R2,-(8P) 


((PUSH R2 ON STACK 


5710 


037370 


010346 








MOV 


R3,-(SP) 


((PUSH R3 ON STACK 


5731 


027372 


010446 








MOV 


R4,'>(SP} 


((PUSH R4 ON STACK 


5732 


027374 


010546 








HOV 


R5,-(SP) 


((PUSH R5 ON STACK 


5733 


027376 


017746 


151536 






MOV 


«SWR,-(SP) 


((PUSH flSWR ON STACK 


5734 


027403 


010637 


037516 






MOV 


SP>ISAVR6 


((SAVE SP 


5735 


027406 


012737 


037430 


000034 




MOV 


*«PWRUP,atPWRVEC 


((SET UP VECTOR 


5736 


027414 


000000 








HALT 






5737 


027416 


000776 








BR 


.-2 


((HANG UP 


5738 


















5739 










( (•••••»»«**««»*«»»«««»«««««*««*««««***«*»*««*«*»»«««*«»«««»*«"i>** 


5740 










(POWER 


UP ROUTINE 




5741 


027430 


012737 


027512 


000034 


IPWRUPl 


MOV 


• (iLLUPf <I»PWRVEC 


((SET FOR FAST DOWN 


5742 


027426 


013706 


027516 






MOV 


tSAVR6,SP 


((GET SP 


5743 


027432 


005037 


027516 






CLR 


tSAVR6 


((WAIT LOOP FOR THE TTY 


5744 


027436 


005337 


037516 




111 


INC 


ISAVR6 


{ (WAIT FOR THE INC 


5745 


027442 


001375 








BNE 


1$ 


((OF WORD 


5746 


027444 


012677 


151470 






MOV 


CSP)t,«SWR 


((POP STACK INTO aSWR 


5747 


027450 


012605 








HOV 


(SP)t,RS 


((POP STACK INTO R5 


5748 


027452 


012604 








MOV 


(SP)t,R4 


((POP STACK INTO R4 


5749 


037454 


013603 








HOV 


(SP>t,R3 


((POP STACK INTO R3 


5750 


027456 


012603 








HOV 


(SP)t,R2 


•(POP STACK INTO R2 


5751 


027460 


013601 








MOV 


(SP)t,Rl 


((POP STACK INTO Rl 


5752 


037463 


012600 








MOV 


(SP)t,R0 


((POP STACK INTO R0 


5753 


027464 


012737 


027346 


000034 




MOV 


«SPWRDN,»«PWRVEC 


((SET UP THE POWER DOWN VECTOR 


5754 


027472 


012737 


000340 


000026 




MOV 


«340,»IPWRVECt2 


((PR10(7 


5755 


027500 


104401 








TYPE 




(REPORT THE POWER FAILURE 


5756 


027502 


037530 






IPWRMG( 


.WORD 


IPOWER 


((POWER FAIL MESSAGE POINTER 


5757 


037504 


013716 








MOV 


(POt, (SP) 


((RESTART AT PFSTRT 


5758 


027506 


003366 






tPWRADt 


.WORD 


PFSTRT 


( (RESTART ADDRESS 


5759 


027510 


000003 








RTI 






5760 


027512 


000000 






IILLUPI 


HALT 




{(THE POWER UP SEQUENCE WAS STARTED 


5761 


027514 


000776 








BR 


.-2 


{) BEFORE THE POWER DOWN WAS COMPLSTE 


5762 


027516 


000000 






ISAVR6: 







( (PUT THE SP HERE 


5763 


027530 


00S015 


047530 


042527 


$POMERt 


.ASCIZ 


<15><12>'"P0WER" 




5764 


027526 


000132 














5765 












.EVEN 
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5766 










(ERROR 


5767 












5768 


027530 


051 105 


051117 


047440 


EMI 1 


5 769 


027536 


0201 16 


051 127 


0521 1 1 




5770 


027544 


000105 








5 771 


027546 


052101 


046505 




£M2 X 


5 772 


027554 


052040 


0201 1 7 


047 111 




5 77 3 




0521 1 1 


0405 1 1 






5774 


027570 


043040 


047125 


0521 03 




5775 


027575 


04751 1 


0201 16 


047 117 




5776 


027604 


02 3440 


052502 


054523 




5777 


027612 


020047 


051 104 


042526 




5778 


027620 


000 








5779 


027621 


103 


052116 


047522 


EM3 t 


5780 


027626 


020114 


042122 


02013 1 




5 791 


027634 


047516 


020124 


042523 




5 782 


027642 


000124 








5783 


027644 


051057 


053457 


05 1457 


EM4 1 


5784 


027652 


051040 


054504 


047040 




5785 


027560 


0521 1 7 


051440 


052105 




5786 


027666 


000 








5787 


027667 


103 


052116 


047522 


EM5 : 


5788 


027674 


020114 


042122 


020131 




5789 


027702 


047516 


020124 


042523 




5790 


027710 


020124 


043101 


042524 




5791 


027715 


020122 


051 461 


0201 24 




5792 


027724 


04711 1 


051124 


0501 25 




5793 


027732 


020124 


0471 17 


044440 




5794 


027740 


051523 


044525 


043516 




5795 


027746 


051440 


042505 


0001 1 3 




5796 


027754 


0511 27 


047117 


0201 07 


EM6 1 


5797 


027762 


044502 


051524 


044440 




5798 


027 770 


020116 


045522 


05 1 503 




5 799 


027776 


020054 


05 4 1 05 


041 520 




58(50 


030004 


020124 


04252 3 


045505 




59al 


03001 2 


000 








58 02 


03001 3 


047 


052502 




EM7 ! 


5833 


030020 


020047 


046 106 


043501 




5804 


030026 


041 440 


04251 4 


051101 




5805 


030034 


047440 


0201 16 


047 1 1 1 




534^6 


030042 


051 1 24 


050125 


044524 




5807 


030050 


043516 


042040 


053122 




5808 


030056 


000105 








5 809 


030060 


050047 


051517 


05 2111 


EM 1 I 


5810 


030066 


0475 1 1 


04453 6 


043516 




5811 


030074 


020047 


0451 06 


043501 




58l 2 


030102 


043040 


051 117 


044440 




58 1 3 


0301 10 


052116 


052522 


052 120 




5814 


0301 16 


047111 


020107 


051104 




5815 


030124 


042525 


041440 


042514 




5816 


030132 


051 101 


000 






5817 


030135 


047 


051105 


023522 


FMll 1 


5818 


030142 


051117 


051440 


052105 




5919 


030150 


040440 


052106 


051105 




5821^ 


030156 


030440 


052123 


044440 




5821 


030164 


0521 16 


051105 


052522 





EM2: .ASCI2; /ATEMPT TO INITIATE FUNCTION ON 'BUSY' DRVE/ 



EM3: .ASCIZ /CNTROL RDV NOT SET/ 



EM4I .ASCIZ "/R/W/S RDY NOT SET" 



EM5! .ASCIZ /CNTROL RDlf NOT SET AFTER ISI INTRUpT ON ISSUING SEEK/ 



EM6) .ASCIZ /WRONG BITS IN PKCSf EXPCT SEEK/ 



EM7! .ASCIZ /'BUSY' FLAG CLEAR ON INTRUpTING DRVE/ 



EM10! .ASCIZ /'POSITIONING' FLAG FOR INTRUPTING DRVE CLEAR/ 



FMll I .ASCIZ /'ERR'OR SET AFTER 1ST INTERRUPT ON ISSUING SEEK/ 



.IfJOEC 


-1 1-DZRKH-F 


HACYU 


27(1006) 


;PKHF.P11 22-SEP-76 


08:57 




5822 


030172 


052120 


047440 


020116 


5823 


030200 


051511 


052523 


047111 


5824 


030206 


020107 


042523 


045505 


5825 


030214 


000 






5826 


030215 


123 


050103 


051440 


S«27 


030222 


052105 


040440 


052106 


5828 


030230 


051105 


030440 


052123 


5829 


030236 


044440 


052116 


052522 


5830 


030244 


052120 


047440 


0201 16 


5831 


030252 


051511 


052523 


04711 1 


5832 


030260 


020107 


042523 


045505 


5833 


k*30265 


000 






5834 


030267 


103 


052116 


047522 


5835 


030274 


0201 14 


042122 


020131 


5836 


030302 


047516 


020124 


042523 


5837 


030310 


020124 


043101 


042524 


5833 


030316 


020122 


042523 


045505 


5839 


030324 


042040 


047117 


020105 


5840 


030332 


047111 


051124 


050125 


5841 


030340 


000124 






5842 


030342 


0471 11 


051124 


050125 


5843 


030350 


044524 


043516 


042040 


5844 


030356 


053122 


020105 


051450 


5845 


030364 


042505 


020113 


047504 


5846 


030372 


042515 


020051 


040527 


5847 


030400 


020123 


047516 


020124 


5848 


030406 


041047 


051525 


023531 


5849 


030414 


000 






5850 


030415 


122 


053457 


051457 


5851 


030422 


051040 


040505 


054504 


5852 


030430 


047040 


052117 


051440 


5853 


030436 


052105 


043040 


051117 


5854 


030444 


044440 


052116 


052522 


5855 


030452 


052120 


047111 


020107 


5856 


030460 


051 104 


042526 


024040 


5857 


030466 


042523 


045505 


042040 


5858 


030474 


047117 


024505 


000 


5859 


030501 


123 


0471U 


042440 


5860 


030506 


047522 


000122 




5861 


030512 


042447 


051122 


047447 


5862 


030520 


020122 


047117 


042040 


5853 


030526 


044517 


043516 


051440 


5864 


030534 


042505 


00011 3 




5865 


030540 


041523 


020120 


044504 


5866 


030546 


020104 


047516 


020124 


5867 


030554 


042523 


020124 


043101 


5868 


030562 


042524 


020122 


042523 


5869 


030570 


045505 


053440 


051501 


5870 


030576 


042040 


047117 


000105 


5871 


030604 


047523 


052106 


042440 


5872 


030612 


047522 


000122 




5873 


03061b 


040504 


040524 


024040 


5874 


030624 


047503 


050115 


051 101 


5875 


030632 


05151 1 


047117 


020051 


5876 


030640 


051 105 


051 117 


000 


5877 


030645 


103 


052116 


047522 



POWER DOWN AND UP ROUTINES 



.ASCIZ /SCP SET AFTER 1ST INTRUPT ON ISSUING SEEK/ 



.ASCIZ /CNTROL RDY NOT SET AFTER SEEK DONE INTRUPT/ 



.ASCIZ /INTRUPTING DRVE (SEEK DONE) WAS NOT 'BUSY'/ 



.ASCIZ "R/K/S READY NOT SET FOR INTRUPTING DRVE (SEEK DONE)' 



EM15; 
EMI 7: 



EM21 : 
EM23: 



.ASCIZ /SIN EROR/ 

.ASCIZ /'ERR'OR ON DOING SEEK/ 



.ASCIZ /SCP DID NOT SET AFTER SEEK WAS DONE/ 



.ASCIZ /SOFT EROR/ 

.ASCIZ /DATA (COMPARISON) EROR/ 



.ASCIZ /CNTROL RDY CLR ON INTRUPT AFTER RK FUNCTION/ 



iINOEC 


-11-DERKH-F 


HACYl 1 


27(10065 




PU 22-SEP-76 


08 157 




5878 


030652 


0201 1 4 


042122 


020131 


5879 


030660 


046103 


020122 


0471 1 7 


58S0 


030666 


044440 


0521 16 


052522 


58B1 


030674 


052130 


040440 


053106 


5882 


030702 


051 105 


051040 


020113 


5883 


030710 


052506 


041516 


044524 


5884 


030716 


047117 


000 




5985 


030731 


123 


053534 


04SS03 


5886 


030726 


044440 


0301 16 


047514 


5887 


030734 


050117 


034054 


041440 


5888 


030742 


046517 


047101 


051504 


5889 


030750 


051440 


046110 


041 104 


5890 


030756 


020105 


047504 


042516 


5891 


030764 


041040 


020131 


047516 


5892 


030772 


000127 






5893 


030774 


052101 


050115 


020134 


5994 


031002 


047534 


042040 


030117 


5895 


031010 


051 127 


052111 


020105 


5896 


031016 


042502 


047506 


043532 


5897 


031024 


053440 


0S2122 


041440 


5898 


031032 


045510 


000 




5899 


031035 


101 


046524 


053130 


i930 


031042 


052040 


020117 


042522 


5901 


0310S0 


054105 


041505 


053135 


5902 


031056 


020105 


047503 


046515 


5903 


031064 


047101 


026504 


04711 1 


59a4 


031072 


050040 


047522 


051 107 


5905 


031 100 


05)505 


020123 


051117 


5906 


031 106 


040440 


051114 


040505 


5907 


031 1 14 


054504 


043040 


0471 1 1 


5908 


031 122 


051511 


042510 


000104 


5909 


031 130 


043047 


047125 


053103 


5910 


031 136 


047511 


0201 16 


04711 1 


591 1 


031 144 


050040 


047522 


051 107 


5912 


031 152 


051505 


020047 


046106 


5913 


031 160 


020107 


047506 


030133 


591 4 


031 166 


047111 


051 124 


050135 


59)5 


031 174 


044524 


043516 


042040 


5916 


031 202 


044522 


042526 


044440 


5917 


031210 


047123 


052047 


051440 


591 8 


031216 


052105 


000 




5919 


031221 


125 


043516 


0501 30 


5920 


031 226 


052103 


042105 


042040 


5921 


031 234 


044522 


042526 


044440 


5922 


031 242 


0521 16 


052522 


052120 


5923 


031 250 


042105 


000 




5924 


031253 


125 


04251 6 


0501 30 


5925 


031 260 


052103 


020104 


052506 


5926 


031 266 


041516 


044524 


0471 1 7 


5927 


031274 


041440 


0421 17 


0201 05 


5928 


031302 


047111 


051040 


04151 3 


5929 


031310 


020123 


043101 


042524 


5930 


031316 


020122 


047 111 




5911 


031324 


050125 


000124 




5932 


031 330 


051104 


042536 


051040 


593J 


031336 


054504 


041440 


042514 
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EM26I .ASCIZ /STUCK IN LOOPrS COMANDS SHLDBE DONE BY NOW/ 



EH37: .ASCIZ /ATMPT TO DO WRITE BEFORE WRT CHK/ 



EM30I .ASCIZ /ATMPT TO REEXECUTE COMHAND-IN PROGRESS OR ALREADY FINISHED/ 



EM31: .ASCIZ /'FUNCTION IN PROGRES' FLG FOR INTRUPTING DRIVE ISN'T SET/ 



EM32J .ASCIZ /UNEXPCTED DRIVE INTRUPTED/ 



EM33I .ASCIZ /UNEXPCTD FUNCTION CODE IN RKCS AFTER INTRUPT/ 



EM34I .ASCIZ /DRVE RDY CLEAR/ 
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5914 


031344 


051 101 


000 












5935 


03! 347 


104 


053122 


020105 


EM35: 


.ASCIZ 


/DRVE POWER LO/ 




5936 


031354 


047520 


042527 


020122 










5937 


031 362 


047514 


000 












5938 


031 365 


104 


053122 


030105 


EM36( 


.ASCIZ 


/DRVE UNSAFE/ 




5939 


031372 


047125 


040523 


042506 










5940 


031400 


000 














5941 


031401 


127 


051520 


051440 


EM37; 


.ASCIZ 


/WPS SET/ 




5942 


031406 


052105 


000 












5943 


031411 


111 


053116 


051105 


EM101I 


.ASCIZ 


/INIERUPT DIDN'T 


OCUR AFTER 


5944 


031416 


050125 


030124 


044504 










5945 


031424 


047104 


053047 


047440 










5946 


031432 


052503 


020122 


043101 










5947 


031440 


042534 


020123 


051127 










5948 


031446 


042524 


000 












5949 


031451 


047 


051105 


023523 


EM102i 


.ASCIZ 


/'ERR'OR SET/ 




5950 


031456 


05! 117 


051440 


053105 










5951 


031464 


000 














5952 


031465 


122 


042113 


020101 


EM103; 


.ASCIZ 


/RKDA INCRMENTED 


WRONG/ 


5953 


031473 


047111 


051 103 


042515 










5954 


031500 


052116 


042105 


053440 










5955 


031506 


047522 


043516 


000 










5956 


031513 


122 


041113 


020101 


EH104I 


.ASCIZ 


/RKBA INCRMENTED 


WRONG/ 


5957 


031520 


047111 


051103 


042515 










5958 


031526 


052116 


042105 


053440 










5959 


031534 


047523 


043516 


000 










5960 


031541 


122 


053513 


020103 


EH105! 


.ASCIE 


/RKWC DIDN'T OVRFLO TO 0/ 


5961 


031546 


044504 


047104 


052047 










5962 


031554 


047440 


051126 


046106 










5963 


031562 


020117 


047524 


030040 










5964 


031570 


000 














5965 


031571 


115 


054105 


041040 


EM106; 


.ASCIZ 


/HEX BITS WRONG/ 




5966 


031576 


052111 


020123 


051127 










5967 


031604 


047117 


000107 












5968 


031610 


051127 


042524 


041440 


EVl 10! 


.SSCIZ 


/WRTE CHK EPOB/ 




5969 


031616 


045510 


042440 


047522 










5970 


031624 


000122 















MAINOEC-ll-DZRKH-F MACYll 27(1006) 04-OCT-76 13:29 PAGE 141 

OZRKHF.Pll 22-SEP-76 08157 pOwER DOWN AND UP ROUTINES 



SEQ 0154 



5971 










5972 


031626 


020040 


041520 


020040 


5973 


031634 


020040 


051040 


041513 


5974 


031642 


020123 


020040 


051040 


5975 


031650 


042513 


020122 


020040 


5976 


031656 


051040 


042113 


020123 


5977 


031664 


020040 


051040 


0421 13 


5978 


031672 


000101 






5979 










59l!>0 


031674 


020040 


041520 


020040 


5981 


031702 


020040 


051104 


021526 


59S2 


031710 


000 






5983 










5984 


03171 1 


040 


050040 


020103 


5985 


031716 


020040 


020040 


045522 


5986 


031724 


051503 


020040 


020040 


5987 


031732 


045522 


051105 


020040 


5988 


031740 


020040 


045522 


051504 


5989 


031746 


020040 


042040 


044522 


5990 


031754 


042526 


020040 


020040 


5991 


031762 


054503 


020114 


020040 


5992 


031770 


020040 


052523 


020122 


5993 


031 776 


020040 


020040 


042523 


5994 


032004 


000103 






5995 










5996 


032006 


020040 


041520 


020040 


5997 


032014 


020040 


045522 


040502 


5998 


032022 


020040 


020040 


054105 


5999 


032030 


041520 


020124 


020040 


6i!f)a 


032036 


042522 


053103 


020104 


6n»l 


032044 


020040 


045522 


040504 


61^02 


032052 


000 






60H3 


032053 


040 


050040 


020103 


6t304 


032060 


020040 


020040 


045522 


6i305 


032066 


051503 


020040 


051040 


6i?«l6 


032074 


042513 


020122 


020040 


6tff)7 


032102 


051040 


042113 


020123 


6i()08 


032110 


020040 


051040 


042113 


6009 


0321 16 


020101 


020040 


051104 


601 a 


032124 


042526 


000043 




6ai 1 










6012 


032130 


020040 


041520 


020040 


6,»1 3 


032136 


020040 


045440 


054505 


5^14 


032144 


020040 


020040 


047106 


6015 


032152 


052103 


020116 


047503 


6016 


032160 


042504 


000 




601 7 


032163 


040 


050040 


020103 


&tai 8 


032170 


020040 


042440 


0501 30 


6019 


032176 


052103 


020040 


051040 


6020 


032204 


041505 


042126 


000 


6021 










6022 


03221 1 


040 


050040 


020103 


6023 


032216 


020040 


045440 


054505 


6024 


032224 


000 






6025 


032225 


040 


050040 


020103 


6026 


032232 


020040 


020040 


045522 



;DATA HERDERS 

DHl; .ASCIZ / PC RKCS RKER RKDS RKDA/ 



DH2: .ASCIZ / PC DRV*/ 



DH21; .ASCIE / PC RKCS RKER RKDS DRIVE CYL SUR 



DH23: .ASCIE / PC RKBA EXPCT RECVD RKDA/ 



DH25: .ASCIZ / PC RKCS RKER RKDS RKDA DRVE»/ 



DH27! .ASCIZ / PC KEY FNCTN CODE/ 



DH103: .ASCIZ / PC EXPCT RECVD/ 



DH30: .ASCIZ / PC KEY/ 

OH105: .ASCIZ / PC RKDA RKWC/ 
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6027 


032240 


040504 


020040 


i?51040 








6H2^ 


032246 


05351 3 


000103 










6ti29 


032252 


020040 


041520 


020040 


OHiie; 


.ASCIZ 


/ PC RKCS RKER RKBA RKDA/ 


6t<10 


032260 


020040 


051040 


041513 








60?1 


032266 


020123 


020040 


051040 








6^32 


032274 


042513 


020122 


020040 








6033 


032302 


051040 


041113 


020101 








6ii?4 


032310 


020040 


051040 


042113 








6«35 


032316 


000101 












6036 
















6037 
















60 3 8 












.EVF.N 




6>n9 
















6i340 


032320 


00U16 


001162 


001 164 


DTI ! 


.WORD 


SERRPC>SRES0f SREGl >$REG2>SRES3,0 


6041 


032326 


001166 


00117« 


000000 








6042 
















6043 


032334 


001 116 


001162 


000000 


DT2! 


.WORD 


SEPRPC»SREG0,0 


6044 
















6045 


032342 


001 1 16 


001 162 


001164 


DT21 : 


.WORD 


SEBPPC»SREG0,SREG1,SPEG2,SREG3,SREG4,SPEG5,SREG6,0 


604b 


032350 


001 166 


001 170 


001172 








6047 


032356 


001174 


001176 


000000 








6<)48 


032364 


001116 


001 162 


001164 


DT25 J 


.WORD 


SERRPC» SREG0, SPEGl , SREG2 , SREG3 , SREG4, 


6049 


032372 


001 166 


001170 


001172 








6050 


032400 


000000 












6051 


032402 


0011 16 


001162 


001164 


DT103! 


. «ORD 


SERRPC,SREG0,SREG1,0 


6,152 


032410 


000000 












61^53 
















6^54 










;THIS 


IS THE DATA BUFFER USED TO WRITE THE RANDOM PATTERNS ON THE 


6055 










;DI5K 


AT THE BEGINING. 400 (OCTAl.) WORDS ARE WRITTEN AT A TIMEj THUS 


6056 










jThIS 


BUFFER IS 


400/8 WORDS LONG. 


6057 
















6058 


032412 








DBUF: 






6059 


032412 


000240 






pgend: 


NOP 




6060 




000001 








• END 
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SSCOPE 027102 

SSETUP* 000115 

SSI2E 017374 

SSIZFX 017636 

SSTUP « 177777 

SSVLAD 027204 

SSVPC = 000220 



$SWR > 

$SWRMKi 

$TkB 

STKS 

STN > 

STNPWR 

STPB 



143000 
000000 
001146 
001144 
000010 
024622 
001152 



STPFLG 001157 

$TPS 001150 

»TRAP 027246 

»TRAP2 827270 

(TRP z 000022 

(TRPAD 027302 

STSTNM 001102 



ITTYIN 023402 

tTXPDS 023726 

STYPE 024152 

STYPEC 024322 

STYPEX 024370 

$TYPOC 025712 

STYPON 025726 



tlYPOS 025666 

tXISTR 027114 

$*GET4s 000000 

$0FXLL 036111 

> 032414 



A9S. 032414 



ERRORS DETECTED! 

DEFAULT GLOBALS GENERATEDj 

DERI<HF,0ZPKHF/LIIHE/NL!MCSMD!CND/S0L/NSQ_DERKHF.P11 
run-time: 64 47 1 SECONDS 
RUN-TIHE ratio: 297/114»2.6 
CORE USED: 30K C59 PAGES) 



